#include "dbtree.ch"
#include "font.ch"
#include "colors.ch"
#Include "msobjects.ch"
#include "SET.CH"
#INCLUDE "Protheus.ch"
#include "rwmake.ch"
#Define linha chr(13)+chr(10)

//-----------------------------------------//
//Empresa...: TEXTIL ASSEF MALUF LTDA
//Projeto...: CADASTRAR EP PADRÃO
//Funcao....: AMFEP03
//Autor.....: DANIEL EVANDRO BUSO
//Data......: 12/01/2016
//Uso.......: INCLUSAO DE EP.
//Versao....: 10/11
//-----------------------------------------//

User Function AMFEP03()

Local oDlg, aArea, aAreaZZ5, lOk
Local bNo             := { || oDlg:End() 	}
Local bOk             := { || oDlg:EpInc()}
Local gCodEP, gTpEp, gRev,  gDtEmi, gElabo, gAprov, gCodCli, gLoja, gDesCli, gCodPro, gDesPro, gNomPro, gSolu1, gSolu2, nTemp1, nTemp2, nPCil1, nPCil2, nVelo1, nVelo2, nAlim1, nAlim2, nPBal1, nPBal2, nPini1, nPini2, nPinf1, nPinf2, gVasc1, gVasc2, gRequi       
Local oGroup1
Local oGroup2
Local oGroup3
Private aZZ5
Private oOk := LoadBitmap(GetResources(),'LBOK')
Private oNo := LoadBitmap(GetResources(),'LBNO')

//Verifica se usuário está autorizado a usar a rotina
While .T.
	lOk      := .F.
	gCodEP	  := Space(05)
	gTpEp	  := Space(30)
	gRev	  := Space(03)
	gDtEmi	  := CTOD("")
	gElabo   := Space(20)
	gAprov   := Space(20)
	gCodCli  := Space(06)
	gLoja    := Space(02)
	gDesCli  := Space(40)
	gCodPro  := Space(15)
	gDesPro  := Space(60)
	gNomPro  := Space(49)
	gSolu1   := Space(20)
	gSolu2   := Space(20)
	nTemp1   := 0
	nTemp2   := 0
	nPCil1   := 0
	nPCil2   := 0
	nVelo1   := 0
	nVelo2   := 0
	nAlim1   := 0
	nAlim2   := 0
	nPBal1   := 0
	nPBal2   := 0
	nPini1   := 0
	nPini2   := 0
	nPinf1   := 0
	nPinf2   := 0	
	gVasc1   := Space(20)
	gVasc2   := Space(20)
	gRequi   := Space(60)
	aZZ5     := {}

	DEFINE MSDIALOG oDlg TITLE "INCLUSÃO DE E.P." FROM 000, 000  TO 530, 565 COLORS 0, 16777215 PIXEL
			@ 006,006 SAY "Código EP"
			@ 005,047 SAY "Tipo EP"
			@ 006,151 SAY "Revisão Nº"
			@ 005,214 SAY "Data Emissão"
			@ 030,006 SAY "Elaborado por"
			@ 030,152 SAY "Aprovado por"
			@ 053,006 SAY "Código - Loja - Nome do Cliente"
			@ 077,006 SAY "Código do Produto"
			@ 077,178 SAY "Descrição do Produto"
			@ 077,091 SAY "Nome Conhecido"
			@ 230,007 SAY "Requisito Específico do Cliente"
			@ 101,005 GROUP oGroup1 TO 226,276 PROMPT "Especificações" OF oDlg COLOR 0, 16777215 PIXEL
			@ 109,189 GROUP oGroup3 TO 221,259 PROMPT "2ª Passada" OF oDlg COLOR 0, 16777215 PIXEL
			@ 110,110 GROUP oGroup2 TO 221,180 PROMPT "1ª Passada" OF oDlg COLOR 0, 16777215 PIXEL
			@ 123,019 SAY "Código Solução"
			@ 133,019 SAY "Temperatura (Cº)"
			@ 144,019 SAY "Pressão do Cilindro (bar)"
			@ 155,019 SAY "Velocidade (m/min)"
			@ 165,019 SAY "Alimentação / Estiramento (kg)"
			@ 176,019 SAY "Pressão Balança Final (bar)"
			@ 186,019 SAY "Pressão Prensa Inicio (bar)"
			@ 197,019 SAY "Pressão Prensa Final (bar)"
			@ 208,019 SAY "Nivel de Solução na Vasca"
			
			@ 015,006 GET M->ZZ5_CODEP PICTURE "99999" SIZE 037,010
			@ 015,047 GET M->ZZ5_TP_EP SIZE 101,010
			@ 015,151 GET M->ZZ5_REVISA SIZE 060,010
			@ 015,214 GET M->ZZ5_DATA SIZE 062,010
			@ 038,006 GET M->ZZ5_ELABOR SIZE 142,010
			@ 038,151 GET M->ZZ5_APROVA SIZE 124,010
			@ 062,006 GET M->ZZ5_CODCLI SIZE 030,010 Valid !VAZIO(gCodCli) F3 "SA1"
			@ 062,040 GET M->ZZ5_DESCLI VALID EVAL({|| M->ZZ5_DESCLI:=Posicione("SA1",1,xFilial("SA'")+M->ZZ5_DESCLI+gLoja,"A1_NOME"),.T.})
			@ 062,063 GET M->ZZ5_DESPRO WHEN .F. SIZE 213,010
			@ 086,006 GET M->ZZ5_CONHEC SIZE 083,010 Valid !VAZIO(gCodPro) F3 "SB1"
			@ 086,092 GET M->ZZ5_CODEP SIZE 084,010			
			@ 086,178 GET M->ZZ5_CODEP SIZE 098,010
			
			@ 119,116 GET gSolu1 SIZE 060,010
			@ 119,193 GET gSolu2 SIZE 060,010
			@ 131,116 GET nTemp1 SIZE 060,010 PICTURE '@e 999,99'
			@ 131,193 GET nTemp2 SIZE 060,010 PICTURE '@e 999,99'
			@ 141,116 GET nPCil1 SIZE 060,010 PICTURE '@e 999,99'
			@ 141,193 GET nPCil2 SIZE 060,010 PICTURE '@e 999,99'
			@ 152,116 GET nVelo1 SIZE 060,010 PICTURE '@e 999,99'
			@ 152,193 GET nVelo2 SIZE 060,010 PICTURE '@e 999,99'
			@ 163,116 GET nAlim1 SIZE 060,010 PICTURE '@e 999,99'
			@ 163,193 GET nAlim2 SIZE 060,010 PICTURE '@e 999,99'
			@ 173,116 GET nPBal1 SIZE 060,010 PICTURE '@e 999,99'
			@ 173,193 GET nPBal2 SIZE 060,010 PICTURE '@e 999,99'
			@ 183,116 GET nPini1 SIZE 060,010 PICTURE '@e 999,99'
			@ 183,193 GET nPini2 SIZE 060,010 PICTURE '@e 999,99'
			@ 194,116 GET nPinf1 SIZE 060,010 PICTURE '@e 999,99'
			@ 194,193 GET nPinf2 SIZE 060,010 PICTURE '@e 999,99'
			@ 205,116 GET gVasc1 SIZE 060,010
			@ 205,193 GET gVasc2 SIZE 060,010
			@ 238,007 GET gRequi SIZE 268,010			
    ACTIVATE MSDIALOG oDlg ON INIT EnchoiceBar(oDlg,bOk,bNo) CENTERED

EndDo
Return Nil


//-----------------------------------------//
//Empresa...: TEXTIL ASSEF MALUF LTDA
//Projeto...: Rotina gravar dados na tabela ZZ5
//Funcao....: EpInc
//Autor.....: DANIEL EVANDRO BUSO
//Data......: 12/01/2016
//Uso.......: INCLUSAO DE EP.
//Versao....: 10/11
//-----------------------------------------//

Static Function EpInc()

DbSelectArea("ZZ5")
DbSetOrder(1)
DbSeek(xFilial("ZZ5")+gCodEP)

If !EOF() .and. ZZ5->ZZ5_CODEP  := gCodEP  .and. ZZ5->ZZ5_TP_EP   := gTpEp   .and. ;
				  ZZ5->ZZ5_REVISA := gRev    .and. ZZ5->ZZ5_DATA    := gDtEmi  .and. ;
				  ZZ5->ZZ5_ELABOR := gElabo  .and. ZZ5->ZZ5_APROVA  := gAprov  .and. ;
				  ZZ5->ZZ5_CODCLI := gCodCli .and. ZZ5->ZZ5_LOJA    := gLoja   .and. ;
				  ZZ5->ZZ5_DESCLI := gDesCli .and. ZZ5->ZZ5_CODPRO  := gCodPro .and. ;
				  ZZ5->ZZ5_DESPRO := gDesPro .and. ZZ5->ZZ5_CONHEC  := gNomPro .and. ;
				  ZZ5->ZZ5_TPSOLU := gSolu1  .and. ZZ5->ZZ5_TPSOL2  := gSolu2  .and. ;
				  ZZ5->ZZ5_TEMP   := nTemp1  .and. ZZ5->ZZ5_TEMP2   := nTemp2    .and. ;
				  ZZ5->ZZ5_PRCILI := nPCil1  .and. ZZ5->ZZ5_PRCIL2  := nPCil2  .and. ;
				  ZZ5->ZZ5_VELOC  := nVelo1  .and. ZZ5->ZZ5_VELO2   := nVelo2   .and. ;
				  ZZ5->ZZ5_ALIMEN := nAlim1  .and. ZZ5->ZZ5_ALIME2  := nAlim2  .and. ;
				  ZZ5->ZZ5_BALANC := nPBal1  .and. ZZ5->ZZ5_BALAN2  := nPBal2  .and. ;
				  ZZ5->ZZ5_PRENS1 := nPini1  .and. ZZ5->ZZ5_PREN12  := nPini2  .and. ;
				  ZZ5->ZZ5_PRENS2 := nPinf1  .and. ZZ5->ZZ5_PREN22  := nPinf2  .and. ;
				  ZZ5->ZZ5_NIVSOL := gVasc1  .and. ZZ5->ZZ5_NIVSO2  := gVasc2  .and. ;
				  ZZ5->ZZ5_REQUES := gRequi				  
    RecLock("ZZ5", .F.)
    Replace ZZ5->ZZ5_CODEP  with gCodEP
    Replace ZZ5->ZZ5_TP_EP  with gTpEp
    Replace ZZ5->ZZ5_REVISA with gRev
    Replace ZZ5->ZZ5_DATA   with gDtEmi
    Replace ZZ5->ZZ5_ELABOR with gElabo
    Replace ZZ5->ZZ5_APROVA with gAprov
    Replace ZZ5->ZZ5_CODCLI with gCodCli
    Replace ZZ5->ZZ5_LOJA   with gLoja
    Replace ZZ5->ZZ5_DESCLI with gDesCli
    Replace ZZ5->ZZ5_CODPRO with gCodPro
    Replace ZZ5->ZZ5_DESPRO with gDesPro
    Replace ZZ5->ZZ5_CONHEC with gNomPro
    Replace ZZ5->ZZ5_TPSOLU with gSolu1
    Replace ZZ5->ZZ5_TPSOL2 with gSolu2
    Replace ZZ5->ZZ5_TEMP   with nTemp1
    Replace ZZ5->ZZ5_TEMP2  with nTemp2
    Replace ZZ5->ZZ5_PRCILI with nPCil1
    Replace ZZ5->ZZ5_PRCIL2 with nPCil2
    Replace ZZ5->ZZ5_VELOC  with nVelo1
    Replace ZZ5->ZZ5_VELO2  with nVelo2
    Replace ZZ5->ZZ5_ALIMEN with nAlim1
    Replace ZZ5->ZZ5_ALIME2 with nAlim2
    Replace ZZ5->ZZ5_BALANC with nPBal1
    Replace ZZ5->ZZ5_BALAN2 with nPBal2
    Replace ZZ5->ZZ5_PRENS1 with nPini1
    Replace ZZ5->ZZ5_PREN12 with nPini2
    Replace ZZ5->ZZ5_PRENS2 with nPinf1
    Replace ZZ5->ZZ5_PREN22 with nPinf2
    Replace ZZ5->ZZ5_NIVSOL with gVasc1
    Replace ZZ5->ZZ5_NIVSO2 with gVasc2
    Replace ZZ5->ZZ5_REQUES with gRequi
    MsUnlock()
//EndIf
dbCloseArea("ZZ5")

oDlg:End() // Fecha antes de mostrar a mensagem

MsgInfo("Informações Gravadas para a EP n.: "+gCodEP)

//oDlg:End() // Fecha após mostrar a mensagem

Return