'Nome       : CprInsTec_grf.std
'Tipo       : LST
'Data       : 2008/05/24
'Versao     : 1.0
'Descricao  : Instrucao tecnica - modo grafico (substituida por word)

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2008/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
Subtotalizadores                 [SbtNiv]=2
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CprInsTec
Nome                       [DocNom]=CprInsTec,Instrucao Tecnica

'formato
'Saida/Impressora           [DocPrt]=
'Saida/Impressora           [DocPrt]=PAG_W
Saida/Impressora           [DocPrt]=PAG_W,PRV

Linhas por pagina          [DocLpg]=1
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'especifico do documento
Opcao especifica           [DocEsp]=OpcEsp=???


'funcoes de listagem
Listar cabecalho            [FxCAB]=CprInsTec_Cab
Listar linhas               [FxLIN]=CprInsTec_Lin
Listar fim                  [FxFIM]=CprInsTec_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'------------------------------------------------------------------------------
'Lista de variaveis especificas
'------------------------------------------------------------------------------
'valores texto
'MemTxt$(01)   - Titulo da listagem
'MemTxt$(11)   - ?


'------------------------------------------------------------------------------
'Formatacao de valores
'------------------------------------------------------------------------------
Pag       = Doc_CntPag
'Pag2      = TxtCv$(Doc_CntPag) + "/2"
Pag2      = txPag$
Cnt       = FrmVal$(CntAux(1),21,4)
Tit080    = TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",Memtxt$(1))
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

DataExt   = FrmDt$("EXT",Sig_DtHoje)
'DataExt   = FrmDt$("EXT",Doc_DtHoje)

##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------------->'Comentario (58)
'---------------------------------------------------->'Comentario (55)
'------------------------------------------------->'Comentario (52)
'---------------------------------------------->'Comentario (49)
'------------------------------------------->'Comentario (46)
'---------------------------------------->'Comentario (43)
'------------------------------------->'Comentario (40)

'- 13 -     - info
'- 25 ----------------->'
'- 28 -------------------->'
'- 40 -------------------------------->'
'- 43 ----------------------------------->'
'- 46 -------------------------------------->'
'- 49 ----------------------------------------->'
'- 52 -------------------------------------------->'
'- 55 ----------------------------------------------->'
'- 58 -------------------------------------------------->'
'- 61 ----------------------------------------------------->'
'- 64 -------------------------------------------------------->'
'- 67 ----------------------------------------------------------->'
'- 70 -------------------------------------------------------------->'


'------------------------------------------------------------------------------
'DIV - Funcoes diversas
'------------------------------------------------------------------------------
Sub Lst_AJT 'ajuste
'nada a executar
end sub


'------------------------------------------------------------------------------
'INI - Inicializacao do documento
'------------------------------------------------------------------------------
Sub FxIni 'funcao de inicializacao
logoNom$ = "DocLogo.bmp"                  'nome do logotipo
logoUsa$ = "[SIG_DIR.DIV]," + logoNom$    'logotipo a usar
logoFic$ = VarTx$(logoUsa$,"R")           'ficheiro do logotipo

'modo WIN
PrWIN AJT_F, 56.7,  56.7                  'ajuste para milimetros
PrWIN AJT_D,-280.0,-280.0                 'deslocamento de ajuste 
PrWIN IMG_F, 1, logoFic$                  'imagem (logotipo)
PrWIN ET,  2                              'espessura de traco 
end sub


Sub FxFim 'funcao de finalizacao
PrWIN FON, "REG"                          'limpar registo de fontes
end sub


'------------------------------------------------------------------------------
'InsTec - Instrucao tecnica
'------------------------------------------------------------------------------
Sub CprInsTec_Cab 'cabecalho
PrWIN PAG_PRP                                     'preparar pagina

docXmin = 10                                       'X minimo
docXmax = 200                                      'X maximo

docYmin = 10                                       'Y minimo
docYmax = 290                                      'Y maximo

sepY1 = docYmin +   0                              'posicao separador Y1
sepY2 = docYmin +  12                              'posicao separador Y2
sepY3 = docYmin +  25                              'posicao separador Y3
sepY4 = docYmin +  60                              'posicao separador Y4
sepY5 = docYmin + 187                              'posicao separador Y5
sepY6 = docYmin + 270                              'posicao separador Y6

sepX1 = docXmin +  60                              'posicao separador X1
sepX2 = docXmax -  50                              'posicao separador X2

PrWIN AJT_B,  Margem,  0.0                         'posicao base
'------------------------------------------------->'Comentario (52)

'logotipo
PrWIN AJT_B, docYmin,  docXmin                     'posicao base
PrWIN IMG_V,1, 2, 2, 50, 20                        'imagem (logotipo)
'PrWIN GR_CX,   2, 2, "+50", "+20", 2              'caixa envolvente
PrWIN AJT_B,  Margem,  0.0                         'posicao base

'titulo
tit1$  = "Instrução Técnica"                       'titulo 1
tit2$  = "Ficha de Afinação de Molde"              'titulo 2

PrWIN FON, 18, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, sepX1,  sepY1, sepX2, sepY2,tit1$    'texto centrado
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN FON, 12, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, sepX1,  sepY2, sepX2, sepY3,tit2$    'texto centrado
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN GR_LI, sepX1, sepY1, sepX1, sepY3, 2         'separador vertical
PrWIN GR_LI, sepX2, sepY1, sepX2, sepY3, 2         'separador vertical

py = sepY2                                         'posicao Y
PrWIN GR_LI, sepX1, py, sepX2,  py, 2              'separador horizontal

py = sepY3                                         'posicao Y
PrWIN GR_LI, docXmin, py, docXmax,  py, 2          'separador horizontal


if Doc_CntPag = 1 then

py = sepY4                                         'posicao Y
PrWIN GR_LI, docXmin, py, docXmax,  py, 2          'separador horizontal

py = sepY5                                         'posicao Y
PrWIN GR_LI, docXmin, py, docXmax,  py, 2          'separador horizontal

py = sepY6                                         'posicao Y
PrWIN GR_LI, docXmin, py, docXmax,  py, 2          'separador horizontal

end if


px = sepX2 +  1.0                                  'posicao X

py = sepY1 +  5.0                                  'posicao Y
PrWIN TX_N, px+0.0 , py,"Código:"

'PrWIN TX_N, px+20.0, py,@vCod
'PrWIN TX_N, px+20.0, py,CPR_Unp_Unp$

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px+20.0, py,CPR_UnpMaqEx_NedinaItcCod$
PrWin FON, "BOLD-"                                 'desactivar bold

'pagina
ntx$   = TxtCv$(Doc_CntPag)                        'conversao em texto
txPag$ = ntx$ + "/2"                               'texto para pagina 

py = sepY1 + 15.0                                  'posicao Y
PrWIN TX_N, px+0.0 , py,"Pág:"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px+20.0, py,@Pag2                      'listar pagina
PrWin FON, "BOLD-"                                 'desactivar bold

'msgbox "","Pagina",Doc_CntPag
end sub


Sub CprInsTec_Lin 'linha
'nada a executar

'zona 1
px1 = docXmin +   0.0                              'posicao X1
px2 = docXmin +  65.0                              'posicao X2
px3 = docXmin + 150.0                              'posicao X3

py1 = sepY3 +   5.0                                'posicao Y1
py2 = sepY3 +  10.0                                'posicao Y2
py3 = sepY3 +  15.0                                'posicao Y3
py4 = sepY3 +  20.0                                'posicao Y4
py5 = sepY3 +  25.0                                'posicao Y5
py6 = sepY3 +  30.0                                'posicao Y6

'X1
PrWIN TX_N, px1+0.0 ,py1,"Molde:"
PrWIN TX_N, px1+0.0 ,py2,"Máquina:"
PrWIN TX_N, px1+0.0 ,py3,"Código:"
PrWIN TX_N, px1+0.0 ,py4,"Tempo de Ciclo:"
PrWIN TX_N, px1+0.0 ,py5,"Produção Média:"

PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, px1+20.0,py1,CPR_UnpMaq_Unp$
PrWIN TX_N, px1+20.0,py1,CPR_Unp_Des$

maqIde$ = CprMaqCon$(CPR_UnpMaq_Maq$, "D")          'identificacao da maquina
'PrWIN TX_N, px1+20.0,py2,CPR_UnpMaq_Maq$
PrWIN TX_N, px1+20.0,py2,maqIde$
PrWIN TX_N, px1+20.0,py3,CPR_UnpMaq_Maq$
PrWIN TX_N, px1+35.0,py4,CPR_UnpMaqEx_NedinaTmpCic$
PrWIN TX_N, px1+35.0,py5,CPR_UnpMaqEx_NedinaProMed$
PrWin FON, "BOLD-"                                 'desactivar bold

'X2
PrWIN TX_N, px2+0.0 ,py1,"Referência:"
PrWIN TX_N, px2+0.0 ,py2,"Molde Nº:"
PrWIN TX_N, px2+0.0 ,py3,""
PrWIN TX_N, px2+0.0 ,py4,"Bico:"
PrWIN TX_N, px2+0.0 ,py5,"Código:"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2+20.0,py1,CPR_UnpMaq_Xxx$
PrWIN TX_N, px2+20.0,py2,CPR_UnpMaqEx_NedinaMolNum$
PrWIN TX_N, px2+20.0,py3,CPR_UnpMaq_Xxx$
PrWIN TX_N, px2+20.0,py4,CPR_UnpMaqEx_NedinaBicoIde$
PrWIN TX_N, px2+20.0,py5,CPR_UnpMaqEx_NedinaBicoCod$
PrWin FON, "BOLD-"                                 'desactivar bold

'X3
px = px3 - 2
PrWIN GR_LI, px, sepY3, px, sepY4, 2         'separador vertical

PrWIN TX_N, px3+0.0 ,py1,"Localização"
PrWIN TX_N, px3+0.0 ,py2,"Sector:"
PrWIN TX_N, px3+0.0 ,py3,"Vão:"
PrWIN TX_N, px3+0.0 ,py4,"Gaveta:"
PrWIN TX_N, px3+0.0 ,py5,""
PrWIN TX_N, px3+0.0 ,py6,""

PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, px3+20.0,py1,CPR_UnpMaqEx_NedinaLocDes$
PrWIN TX_N, px3+15.0,py2,CPR_UnpMaqEx_NedinaLocSec$
PrWIN TX_N, px3+15.0,py3,CPR_UnpMaqEx_NedinaLocVao$
PrWIN TX_N, px3+15.0,py4,CPR_UnpMaqEx_NedinaLocGav$
PrWIN TX_N, px3+00.0,py5,CPR_UnpMaqEx_NedinaLocZon$
PrWIN TX_N, px3+00.0,py6,CPR_UnpMaqEx_NedinaLocEst$
PrWin FON, "BOLD-"                                 'desactivar bold


'zona 2
py = sepY4 + 1.0                                  'posicao Y

PrWIN TX_N, px1+0.0 ,py,"Temperaturas"

vtx$ = "(Tolerâncias e pontos críticos, ver verso)"
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, sepX1, py, sepX2, py,vtx$            'texto centrado
PrWin FON, "BOLD-"                                 'desactivar bold

py = sepY4 + 11.0                                  'posicao Y
PrWIN TX_N, px1+0.0 ,py,"Temperatura do bico"
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px1+45.0,py,CPR_UnpMaqEx_NedinaTempBico$
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN GR_CX, px1+44, py, px1+55, py+5, 2             'caixa

vtx$ = trim$(CPR_UnpMaqEx_NedinaTempEstu$)+ "ºC"
px = sepX2
PrWIN TX_N, px+2.0,py+5,"Temperatura da estufa"
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px+20.0,py+10,vtx$
PrWin FON, "BOLD-"                                 'desactivar bold


y0 = sepY4 + 11.0                                  'posicao Y0
y1 = y0 +  5.0                                     'posicao Y1
y2 = y1 + 11.0                                     'posicao Y2
ym = 0 + (y1 + y2) / 2                             'posicao Y media

x1 = px1 + 70
x2 = x1 + 35
xm = 0 + (x1 + x2) / 2                             'posicao X media

'PrWIN TX_N, x1 ,py,"Código caixa do bico"
vtx$ = "Código caixa do bico"
PrWIN TX_CTR, x1, y0, x2, y0,vtx$                  'texto centrado

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, x1+45.0,y0,CPR_UnpMaqEx_NedinaCaixBico$
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN TX_CTR, x1, y1, xm, y1,"1"                   'texto centrado
PrWIN TX_CTR, xm, y1, x2, y1,"2"                   'texto centrado

PrWIN GR_LI, xm, y1, xm,  y2, 2                    'separador vertical
PrWIN GR_LI, x1, ym, x2,  ym, 2                    'separador horizontal

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, x1+1.0,y2-4,CPR_UnpMaqEx_NedinaTempCaixBico1$
PrWIN TX_N, xm+1.0,y2-4,CPR_UnpMaqEx_NedinaTempCaixBico2$
PrWin FON, "BOLD-"                                 'desactivar bold

'desenho
y1 = sepY4 + 25.0                                  'posicao Y1
y2 = y1 + 23.0                                     'posicao Y2
ym = 0 + (y1 + y2) / 2                             'posicao Y media
ym1 = ym - 3
ym2 = ym + 3

x1 = px1 + 6
x2 = x1 + 25
x3 = x2 + 2
xm = 0 + (x1 + x2) / 2                             'posicao X media

y11 = y1 + 1
y12 = y1 + 2
y13 = y1 + 3

ypb = y1 + 6

y23 = y2 - 3
y22 = y2 - 2
y21 = y2 - 1

x11 = x1 + 5
x12 = x1 + 9
x13 = x1 + 12

x23 = x2 - 6
x22 = x2 - 9
x21 = x2 - 5

PrWIN GR_CX, x1, y1, x11, y2, 2                   'caixa 1
PrWIN GR_LI, x11, y11, x21,  y11, 2                'linha
PrWIN GR_LI, x11, y12, x21,  y12, 2                'linha
PrWIN GR_LI, x11, y13, x12,  y13, 2                'linha

PrWIN GR_LI, x12, y13, x13,  ypb, 2                'linha
PrWIN GR_LI, x12, y23, x13,  ypb, 2                'linha


PrWIN GR_LI, x21, y13, x22,  y13, 2                'linha

PrWIN GR_LI, x22, y13, x23,  ypb, 2                'linha
PrWIN GR_LI, x22, y23, x23,  ypb, 2                'linha

PrWIN GR_LI, x21, y23, x22,  y23, 2                'linha
PrWIN GR_LI, x11, y23, x12,  y23, 2                'linha
PrWIN GR_LI, x11, y22, x21,  y22, 2                'linha
PrWIN GR_LI, x11, y21, x21,  y21, 2                'linha
PrWIN GR_CX, x2, y1, x21, y2, 2                   'caixa 2

PrWIN TX_CTR, x1, y1, x11, y2,"1"                   'texto centrado
PrWIN TX_CTR, x2, y1, x21, y2,"2"                   'texto centrado

PrWIN GR_LI, x2, ym1, x3,  ym1, 2                   'linha
PrWIN GR_LI, x3, ym1, x2,  ym, 2                   'linha

PrWIN GR_LI, x3, ym2, x2,  ym, 2                   'linha
PrWIN GR_LI, x2, ym2, x3,  ym2, 2                   'linha


'bico
dx = 2
zdx = 14.0
ldx =  3.5

bx1 = x2 + dx + 5
bx2 = bx1 + dx
'bx3 = bx2 + dx
'bx4 = bx3 + zdx

zx1 = bx2 
zx2 = zx1 + zdx
zx3 = zx2 + ldx

yl1 = ym - 1
yl2 = ym + 1

PrWIN GR_LI, bx1, ym, bx2,  ym1, 2                   'linha
'PrWIN GR_LI, bx1, ym1, bx2,  ym1, 2                   'linha

'PrWIN GR_LI, bx1, ym2, bx2,  ym2, 2                   'linha
PrWIN GR_LI, bx1, ym, bx2,  ym2, 2                   'linha


'PrWIN GR_CX, zx1, yl1, zx3, yl2, 2                  'caixa


'PrWIN GR_LI, zx1, ym1, zx2, ym1, 2                   'linha
'PrWIN GR_LI, zx2, ym2, zx2, ym2, 2                   'linha
'PrWIN GR_LI, zx2, ym1, zx2, ym2, 2                   'linha
'PrWIN GR_CX, zx2, yl1, zx3, yl2, 2             'caixa de ligacao

for i = 1 to 6
ntx$ = TxtCv$(i)
idv$ = "CPR_UnpMaqEx_NedinaTempNorZon" + ntx$ + "$"

vtx$ = CalcTx$(idv$)                           'Calcular expressão - Texto

PrWIN GR_CX, zx1, ym1, zx2, ym2, 2             'caixa de zona
PrWIN GR_CX, zx2, yl1, zx3, yl2, 2             'caixa de ligacao

PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, zx1+1.0,ym1+0.5,vtx$
PrWIN TX_CTR, zx1, yl1, zx2, yl2,vtx$                   'texto centrado
PrWin FON, "BOLD-"                                 'desactivar bold

zx1 = zx1 + zdx + ldx
zx2 = zx1 + zdx
zx3 = zx2 + ldx
next

      ax1 = zx1
      ax2 = ax1 + 10

      axm = 0 + (ax1 + ax2) / 2                             'posicao Y media
      axm1 = axm - 1
      axm2 = axm + 1

      ay1 = ym1 - 1
      ay2 = ym1 - 6
      ay3 = ym1 - 11


      PrWIN GR_CX, ax1, ay2, ax2, ay3, 2             'caixa de zona
      PrWIN GR_LI, axm2, ay1, ax2, ay2, 2             'linha
      PrWIN GR_LI, axm1, ay1, ax1, ay2, 2             'linha
      PrWIN GR_CX, axm1, ym1, axm2, ay1, 2             'caixa de zona
      PrWIN GR_CX, ax1, ym1, ax2, ym2, 2             'caixa de zona

'temperatura - agua
px1 = docXmin +   0.0                              'posicao X1
px2 = docXmin +  45.0                              'posicao X2

py1 = sepY3 +  85.0                                'posicao Y1
py2 = py1   +   5.0                                'posicao Y2
py3 = py2   +   5.0                                'posicao Y3

PrWIN TX_N, px1,py1,"Temperatura da água no molde"
PrWIN TX_N, px1,py2,"Temperatura 1 (atrás)"
PrWIN TX_N, px1,py3,"Temperatura 2 (frente)"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaTempAgu1$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaTempAgu2$
PrWin FON, "BOLD-"                                 'desactivar bold

'carburador
px1 = docXmin +  90.0                              'posicao X1
px2 = docXmin + 125.0                              'posicao X2

py1 = sepY3 +  80.0                                'posicao Y1
py2 = py1   +   5.0                                'posicao Y2

PrWIN TX_N, px1,py1,"Carburador"
PrWIN TX_N, px1,py2,"Código caixa"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaTempCarb$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaTempCarbCx$
PrWin FON, "BOLD-"                                 'desactivar bold

pxb = px1
px2 = pxb
dx  = 15

py1 = sepY3 +  90.0                                'posicao Y1
py2 = py1   +   5.0                                'posicao Y2
py3 = py2   +   5.0                                'posicao Y3

for i = 1 to 6
ntx$ = TxtCv$(i)
idv$ = "CPR_UnpMaqEx_NedinaTempZcx" + ntx$ + "$"

vtx$ = CalcTx$(idv$)                           'Calcular expressão - Texto

px1 = px2
px2 = px2 + dx

sepV = 0
if i > 1 then
   'if i < 6 then
      sepV = 1
   'end if
end if

if sepV = 1 then
   PrWIN GR_LI, px1, py1, px1, py3, 2             'caixa de zona
end if

PrWIN TX_CTR, px1, py1, px2, py2,ntx$                   'texto centrado

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, px1, py2, px2, py3,vtx$                   'texto centrado
PrWin FON, "BOLD-"                                 'desactivar bold
next
PrWIN GR_LI, pxb, py2, px2, py2, 2             'linha

'zonas - grupo 1
py0 = sepY3 + 103.0                                'posicao Y0
py1 = py0   +  10.0                                'posicao Y1
py2 = py1   +   5.0                                'posicao Y2
py3 = py2   +   5.0                                'posicao Y3
py4 = py3   +   5.0                                'posicao Y4
py5 = py4   +   5.0                                'posicao Y5

ide$ = "Pressão de|injecção"
dx  = 25                                           'dimensao X
px1 = docXmin +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$           'texto com alinhamento horizontal/vertical

PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"
PrWIN TX_N, px1+1 ,py3,"3ª"
PrWIN TX_N, px1+1 ,py4,"4ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaPreInj1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaPreInj2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaPreInj3$
PrWIN TX_N, px2,py4,CPR_UnpMaqEx_NedinaPreInj4$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Velocidade|de injecção"
dx  = 25                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"
PrWIN TX_N, px1+1 ,py3,"3ª"
PrWIN TX_N, px1+1 ,py4,"4ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaVelInj1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaVelInj2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaVelInj3$
PrWIN TX_N, px2,py4,CPR_UnpMaqEx_NedinaVelInj4$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Pressão de|manutenção"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"
PrWIN TX_N, px1+1 ,py3,"3ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaPreMan1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaPreMan2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaPreMan3$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Velocidade de|manutenção"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"
PrWIN TX_N, px1+1 ,py3,"3ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaVelMan1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaVelMan2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaVelMan3$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Velocidade de|carregamento"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaVelCrg1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaVelCrg2$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Pressão de|carregamento"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1ª"
PrWIN TX_N, px1+1 ,py2,"2ª"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaPreCrg1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaPreCrg2$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Dosagem"
dx  = 25                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   1.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaDos$
PrWin FON, "BOLD-"                                 'desactivar bold

'zonas - grupo 2
py0 = sepY3 + 135.0                                'posicao Y0
py1 = py0   +  10.0                                'posicao Y1
py2 = py1   +   5.0                                'posicao Y2
py3 = py2   +   5.0                                'posicao Y3
py4 = py3   +   5.0                                'posicao Y4
py5 = py4                                          'posicao Y5

ide$ = "Tempo de|injecção"
dx  = 25                                           'dimensao X
px1 = docXmin +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$           'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1º"
PrWIN TX_N, px1+1 ,py2,"2º"
PrWIN TX_N, px1+1 ,py3,"3º"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaTmpInj1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaTmpInj2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaTmpInj3$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Tempo de|arrefecimento"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1º"
PrWIN TX_N, px1+1 ,py2,"2º"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaTmpArr1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaTmpArr2$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Tempo de|manutenção"
dx  = 30                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   8.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWIN TX_N, px1+1 ,py1,"1º"
PrWIN TX_N, px1+1 ,py2,"2º"
PrWIN TX_N, px1+1 ,py3,"3º"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaTmpMan1$
PrWIN TX_N, px2,py2,CPR_UnpMaqEx_NedinaTmpMan2$
PrWIN TX_N, px2,py3,CPR_UnpMaqEx_NedinaTmpMan3$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Descompressão"
dx  = 35                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   1.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaDes$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Pressão de|descompressão"
dx  = 35                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   1.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaPreDes$
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Velocidade de|descompressão"
dx  = 35                                           'dimensao X
px1 = px3 +   0.0                              'posicao X1
px2 = px1     +   1.0                              'posicao X2
px3 = px1     +    dx                              'posicao X3

PrWIN GR_LI, px1, py0, px1, py5, 2             'linha

PrWIN TX_AHV, 5, px1, py0, px3, py1,ide$             'texto com alinhamento horizontal/vertical
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px2,py1,CPR_UnpMaqEx_NedinaVelDes$
PrWin FON, "BOLD-"                                 'desactivar bold

'zona 5
psy1 = sepY5 +  0.0                                 'posicao separacao Y1
psy2 = sepY5 + 30.0                                 'posicao separacao Y2
psy3 = sepY5 + 60.0                                 'posicao separacao Y3
psy4 = sepY6 -  2.0                                 'posicao separacao Y4

psx1 = docXmin +   0.0                              'posicao separacao X1
psx2 = docXmin +  70.0                              'posicao separacao X2
psx3 = docXmin + 115.0                              'posicao separacao X3
psx4 = docXmax +   0.0                              'posicao separacao X4

PrWIN GR_LI, psx1, psy2, psx2, psy2, 2             'linha hrizontal
PrWIN GR_LI, psx2, psy1, psx2, psy4, 2             'linha vertical
PrWIN GR_LI, psx2, psy3, psx4, psy3, 2             'linha hrizontal
PrWIN GR_LI, psx3, psy1, psx3, psy1+10, 2          'linha vertical


ide$ = "Embalagem"
dx  = 25                                           'dimensao X
py1 = psy1  + 0.0                                  'posicao Y1
py2 = py1   + 5.0                                  'posicao Y2

px1 = docXmin +   0.0                              'posicao X1
px2 = px1     +   0.0                              'posicao X2

PrWIN TX_N, px1,py1,ide$
PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, px1,py2,CPR_UnpMaqEx_NedinaEmb$
PrWIN TX_ZTX,"", px1,py2, px1+65, py2+20,CPR_UnpMaqEx_NedinaEmb$  'zona de texto
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Observacões"
dx  = 25                                           'dimensao X
py1 = psy2  + 0.0                                  'posicao Y1
py2 = py1   + 5.0                                  'posicao Y2

px1 = docXmin +   0.0                              'posicao X1
px2 = px1     +   0.0                              'posicao X2

PrWIN TX_N, px1,py1,ide$
PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, px1,py2,CPR_UnpMaqEx_NedinaObs$
PrWIN TX_ZTX,"", px1,py2, px1+65, py2+45,CPR_UnpMaqEx_NedinaObs$  'zona de texto
PrWin FON, "BOLD-"                                 'desactivar bold

ide$ = "Matéria Prima"
py1 = psy1  + 0.0                                  'posicao Y1
py2 = py1   + 5.0                                  'posicao Y2
py3 = py2   + 5.0                                  'posicao Y3
py4 = py3   + 5.0                                  'posicao Y4
py5 = py4   + 5.0                                  'posicao Y5

px1 = psx2 +   1.0                                 'posicao X1
px2 = px1  +   1.0                                 'posicao X2
px3 = px1  +  45.0                                 'posicao X3
px4 = px1  +  80.0                                 'posicao X4

PrWIN TX_N, px1,py1,ide$
PrWIN TX_N, px1,py3,"Nº de peças por injecção"
PrWIN TX_N, px3,py1,"Tempo de estufagem"
PrWIN TX_N, px3,py2,"Temperatura da estufa"

PrWIN TX_N, px4,py3,"Peso"
PrWIN TX_N, px4+12,py3,"c/g"
PrWIN TX_N, px4+12,py4,"s/g"

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px3+5,py3,CPR_UnpMaqEx_NedinaPecInj$
PrWIN TX_N, px3+50,py1,CPR_UnpMaqEx_NedinaEstTmp$
PrWIN TX_N, px3+50,py2,CPR_UnpMaqEx_NedinaEstTemp$
PrWIN TX_N, px4+20,py3,CPR_UnpMaqEx_NedinaPesoCgi$
PrWIN TX_N, px4+20,py4,CPR_UnpMaqEx_NedinaPesoSgi$
PrWin FON, "BOLD-"                                 'desactivar bold


'formulas
ide$ = "Frequência de Amostragem"
dx  = 25                                           'dimensao X
py1 = psy3  + 0.0                                  'posicao Y1
py2 = py1   + 5.0                                  'posicao Y2

px1 = psx2 +   1.0                                 'posicao X1
px2 = px1     +   0.0                              'posicao X2

PrWIN TX_N, px1,py1,ide$
PrWin FON, "BOLD+"                                 'activar bold
'PrWIN TX_N, px1,py2,CPR_UnpMaqEx_NedinaFrqAmo$
PrWIN TX_ZTX,"", px1,py2, px1+110, py2+20,CPR_UnpMaqEx_NedinaFrqAmo$  'zona de texto
PrWin FON, "BOLD-"                                 'desactivar bold

'rodape
py = sepY6 + 1                                     'posicao Y
PrWIN TX_N,  10.0,py,"IMDPR041"
PrWIN TX_N,  45.0,py,"Revisão:"
PrWIN TX_N,  85.0,py,"Elaborou:"
PrWIN TX_N, 120.0,py,"Aprovou:"
PrWIN TX_N, 160.0,py,"Data:"


'forcar pagina nova
tmp = CntLin("INC",1)                             'incrementar contador linhas

'PrWIN PAG_PRP                                     'preparar pagina


idc$ = "CPR_UnpMaqEx_NedinaTemp"

dxz = zdx + ldx
dyz = 15

px1 = docXmin +   0.0                              'posicao X1
dx  = 2
py = sepY3 + 1.0                                  'posicao Y
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px1+0.0 ,py,"Temperaturas"
PrWin FON, "BOLD-"                                 'desactivar bold


PrWIN TX_N, px1+160.0 ,py+10,"Estufa"

PrWIN TX_N, px1+0.0 ,py+15,"Máximas"
PrWIN TX_N, px1+25.0,py+30,"Bico"
PrWIN TX_N, px1+0.0 ,py+45,"Mínimas"


PrWIN TX_N, px1+20,py+15,CPR_UnpMaqEx_NedinaTolTempBicoMax$
PrWIN TX_N, px1+20,py+45,CPR_UnpMaqEx_NedinaTolTempBicoMin$

PrWIN TX_N, px1+160,py+15,CPR_UnpMaqEx_NedinaTolTempEstMax$
PrWIN TX_N, px1+160,py+45,CPR_UnpMaqEx_NedinaTolTempEstMin$

for t = 1 to 3
tip$ = "Max"
if t = 2 then
   tip$ = "Nor"
end if

if t = 3 then
   tip$ = "Min"
end if

y1 = sepY3 + t * dyz                                  'posicao Y1
y2 = y1 + 10.0                                     'posicao Y2

ym = 0 + (y1 + y2) / 2                             'posicao Y media
ym1 = ym - 3
ym2 = ym + 3

yl1 = ym - 1
yl2 = ym + 1

zx1 = docXmin +  40.0                              'posicao X2

bx1 = zx1 - dx 
bx2 = zx1 

PrWIN GR_LI, bx1, ym, bx2,  ym1, 2                   'linha
PrWIN GR_LI, bx1, ym, bx2,  ym2, 2                   'linha

for i = 1 to 6
ntx$ = TxtCv$(i)
idv$ = idc$ + tip$ + "Zon" + ntx$ + "$"

vtx$ = CalcTx$(idv$)                           'Calcular expressão - Texto

zx2 = zx1 + zdx
zx3 = zx2 + ldx


lig = 1
if i = 6 then
   if t = 2 then
      ax1 = zx3
      ax2 = ax1 + 10

      axm = 0 + (ax1 + ax2) / 2                             'posicao Y media
      axm1 = axm - 1
      axm2 = axm + 1

      ay1 = ym1 - 1
      ay2 = ym1 - 6
      ay3 = ym1 - 11


      PrWIN GR_CX, ax1, ay2, ax2, ay3, 2             'caixa de zona
      PrWIN GR_LI, axm2, ay1, ax2, ay2, 2             'linha
      PrWIN GR_LI, axm1, ay1, ax1, ay2, 2             'linha
      PrWIN GR_CX, axm1, ym1, axm2, ay1, 2             'caixa de zona
      PrWIN GR_CX, ax1, ym1, ax2, ym2, 2             'caixa de zona
   else
      lig = 0
   end if
end if

PrWIN GR_CX, zx1, ym1, zx2, ym2, 2             'caixa de zona
if lig = 1 then
PrWIN GR_CX, zx2, yl1, zx3, yl2, 2             'caixa de ligacao
end if

'PrWIN TX_N, zx1+1.0,ym1+0.5,vtx$
PrWIN TX_CTR, zx1, yl1, zx2, yl2,vtx$                   'texto centrado


zx1 = zx1 + zdx + ldx
'zx2 = zx1 + zdx
'zx3 = zx2 + ldx
next

next


ide$ = "Pontos Críticos a Inspeccionar no Produto Final"
py1 = 120   + 0.0                                  'posicao Y1
py2 = py1   + 5.0                                  'posicao Y2

px1 = docXmin +  1.0                               'posicao X1

PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, px1,py1,ide$
PrWin FON, "BOLD-"                                 'desactivar bold
'PrWIN TX_N, px1,py2,CPR_UnpMaqEx_NedinaPonCri$
PrWIN TX_ZTX,"", px1,py2, px1+110, py2+15,CPR_UnpMaqEx_NedinaPonCri$  'zona de texto
end sub


Sub CprInsTec_Fim 'fim de listagem
'------------------------------------------------->'Comentario (52)
PrWIN FP                                           'fim de pagina
end sub

##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                         =[SIG_Dir.Div],LsComPgm.std
'Funcoes comuns XLS                     =[SIG_LST_DIR.XLS],XlsCom_Pgm.inc
'Funcoes comuns WORD                    =[SIG_LST_DIR.$INC],WordCom_Pgm.inc
##
