#INCLUDE "RWMAKE.CH"
#INCLUDE "COLORS.CH"
#INCLUDE "FONT.CH"
#INCLUDE "TOPCONN.CH"
#INCLUDE "PROTHEUS.CH"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³HWFATR001 ºAutor  ³Diego Martins       º Data ³  05/05/16   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³  Impressao de Solicitacao de Nota Fiscal                   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ HEWITT EQUIPAMENTOS                                        º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function HWFATR001()

Private	cImag001	:=	"\system\logohw.png"
Private oArial22N	:=	TFont():New("Arial",,22,,.T.,,,,,.F.,.F.)
Private oArial10N	:=	TFont():New("Arial",,10,,.T.,,,,,.F.,.F.)  
Private oArial10	:=	TFont():New("Arial",,10,,.F.,,,,,.F.,.F.)
Private oArial8  	:=	TFont():New("Arial",,8,,.F.,,,,,.F.,.F.)
Private oPrinter  	:= TMSPrinter():New("Solicitação de Nota Fiscal - Hewitt") 
PRIVATE cPerg	:= "HWFATR001"

AjustaSx1()
If ! Pergunte(cPerg,.T.)
	Return
Endif

  oPrinter:Setup()
  oPrinter:SetPortrait()
  oPrinter:StartPage()
  RunReport()
  oPrinter:Preview()
  oPrinter:EndPage()
Return 

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³HWFATR001 ºAutor  ³Diego Martins       º Data ³  05/05/16   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Cabecalho                                                  º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ HEWITT EQUIPAMENTOS                                        º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

Static Function ImpCabec() 

_dEmissao:=cTod("  /  /  ")
_dEmissao:=SZ3->Z3_EMISSAO 
nBegin := 0
oPrinter:StartPage()

  oPrinter:SayBitMap(0046,0046,cImag001,0357,0154)

  oPrinter:Say(0091,0737,"Solicitação de Nota Fiscal",oArial22N,,0)

  oPrinter:Say(0253,0058,"Cliente/Fornecedor:",oArial10N,,0) 
If !empty (SZ3->Z3_CLIENTE)
  oPrinter:Say(0253,0480, TRBSZ3->Z3_CLIENTE + Posicione("SA1",1,xFilial("SA1")+TRBSZ3->Z3_CLIENTE,"A1_NOME"),oArial10,,0)
  oPrinter:Say(0303,0058,"CNPJ: ",oArial10N,,0)
  oPrinter:Say(0303,0480, Transform(Posicione("SA1",1,xFilial("SA1")+TRBSZ3->Z3_CLIENTE,"A1_CGC"),"@R 99.999.999/9999-99"),oArial10,,0)
  oPrinter:Say(0353,0058,"I.E.: ",oArial10N,,0) 
  oPrinter:Say(0353,0480, Transform(Posicione("SA1",1,xFilial("SA1")+TRBSZ3->Z3_CLIENTE,"A1_INSCR"),"@R 999.999.999.999"),oArial10,,0) 
Endif
  oPrinter:Say(0253,0480, TRBSZ3->Z3_FORNECE + ' - ' + Posicione("SA2",1,xFilial("SA2")+TRBSZ3->Z3_FORNECE,"A2_NOME"),oArial10,,0)  
  
  oPrinter:Say(0303,1600,"Emissão: ",oArial10N,,0)  
  oPrinter:Say(0303,2200, DTOC(_dEmissao),oArial10,,,,1)
   
  oPrinter:Say(0353,1600,"Pedido de Venda (OP):",oArial10N,,0) 
  oPrinter:Say(0353,2200, TRBSZ3->Z3_OF,oArial10,,,,1)
  
  oPrinter:Say(0403,1600,"Pedido Cliente:",oArial10N,,0) 
  oPrinter:Say(0403,2200, TRBSZ3->Z3_PEDCLIE,oArial10,,,,1)
  
  oPrinter:Say(0403,0058,"Frete: ",oArial10N,,0)
  oPrinter:Say(0403,0480, Iif(TRBSZ3->Z3_TPFRETE=='C','C - (CIF)','F - (FOB)'),oArial10,,0 )
      
  oPrinter:Say(0451,0058,"Natureza da Operação:",oArial10N,,0)  
  oPrinter:Say(0451,0480, TRBSZ3->Z3_NATUREZ,oArial10,,0)
  
  oPrinter:Say(0501,0058,"Local de Entrega :",oArial10N,,0)  
  oPrinter:Say(0501,0480, Posicione("SA1",1,xFilial("SA1")+TRBSZ3->Z3_CLIENTE,"A1_END" ),oArial10,,0)  
// IF(!EMPTY(Z3_CLIENTE), Posicione("SA1",1,xFilial("SA1")+TRBSZ3->Z3_CLIENTE,"A1_END" ),oArial10,,0)  
//AllTrim(A1_BAIRRO)+" - "+ A1_EST+" "+"CEP: " + Transform(A1_CEP,'@R 99999-999')

  oPrinter:Say(0551,0058,"Cond. de Pagamento:",oArial10N,,0)
  
  If TRBSZ3->Z3_CLIENTE = "344"
  	oPrinter:Say(0551,0480, TRBSZ3->Z3_CONDPAG + ' - ' + "10% em garantia e 90% à 30 dias da emissão.",oArial10,,0) 
  	oPrinter:Say(0601,0058,"(Adiantamento XX% restante a XX da emissão da NF)",oArial10N,,0) 
  Else
	oPrinter:Say(0551,0480, TRBSZ3->Z3_CONDPAG + ' - ' + Posicione("SE4",1,xFilial("SE4")+TRBSZ3->Z3_CONDPAG,"E4_DESCRI"),oArial10,,0)	  	
  Endif
  /*------TRANSPORTADORA------*/
  
  oPrinter:Say(0701,0058,"Transportadora:",oArial10N,,0)
  oPrinter:Say(0701,0480, TRBSZ3->Z3_TRANSP + ' - ' + Posicione("SA4",1,xFilial("SA4")+TRBSZ3->Z3_TRANSP,"A4_NOME"),oArial10,,0)
  oPrinter:Say(0751,0058,"CNPJ:",oArial10N,,0)
  oPrinter:Say(0751,0480, Transform(Posicione("SA4",1,xFilial("SA4")+TRBSZ3->Z3_TRANSP,"A4_CGC"),"@R 99.999.999/9999-99"),oArial10,,0)
  oPrinter:Say(0801,0058,"I.E.: ",oArial10N,,0) 
  oPrinter:Say(0801,0480, Transform(Posicione("SA4",1,xFilial("SA4")+TRBSZ3->Z3_TRANSP,"A4_INSEST"),"@R 999.999.999.999"),oArial10,,0) 
  
  /*------SERVICO------*/
  oPrinter:Say(0890,0058,"Serviço",oArial10N,,0)
  oPrinter:Say(0940,0058, TRBSZ3->Z3_SERVICO + ' - ' + Posicione("SB1",1,xFilial("SB1")+TRBSZ3->Z3_SERVICO,"B1_DESC"),oArial8,,0)
  
  oPrinter:Say(0890,1350,"Qtd Serviço",oArial10N,,0)
  oPrinter:Say(0940,1420, Transform(TRBSZ3->Z3_QTDSERV,"999999"),oArial8,,,,1) 

  oPrinter:Say(0890,1607,"Valor Serviço (R$)",oArial10N,,0)
  oPrinter:Say(0940,1780, Transform(TRBSZ3->Z3_VLRSERV,"@E 999,999,999.99"),oArial8,,,,1)
  
  oPrinter:Say(0890,2000,"UN",oArial10N,,0)
  oPrinter:Say(0940,2000, TRBSZ3->Z3_UMSERV,oArial8,,0)
 
  oPrinter:Say(0890,2165,"OF",oArial10N,,0)
  oPrinter:Say(0940,2250, TRBSZ3->Z3_ORDFABR,oArial8,,,,1)    

 /*------PESO LIQUIDO------*/ 
 
  oPrinter:Say(2919,0058,"Peso Líquido:",oArial10N,,0)
  oPrinter:Say(2924,0480, Transform(TRBSZ3->Z3_PESOL,"@E 99,999,999,999 "),oArial8,,,,1)        

  oPrinter:Say(2919,0779,"Peso Bruto:",oArial10N,,0)
  oPrinter:Say(2924,1110, Transform(TRBSZ3->Z3_PBRUTO, "@E 99,999,999,999 "),oArial8,,,,1)
  
  oPrinter:Say(2919,1474,"Volume:",oArial10N,,0)
  oPrinter:Say(2924,1665, Alltrim(Str(TRBSZ3->Z3_VOLUME1)),oArial8,,,,1)

 /*------OBSERVACAO------*/
 
 oPrinter:Say(3010,0058,"INFORMAÇÃO A SER COLOCADA NO CAMPO DE OBSERVAÇÃO DA NF - NÃO SERÁ ACEITA A NF SEM ESTES DADOS.",oArial10N,,0)  
 oPrinter:Say(3070,0058,"Observação:",oArial10N,,0) 

/* li:=3075
	For nBegin := 1 To MLCount(TRBSZ3->Z3_OBS,180)
//		li+=40 
		oPrinter:Say( li, 0280,OemToAnsi(MemoLine(TRBSZ3->Z3_OBS,180,nBegin)),oArial8,,0)
	Next nBegin
*/
 /*------ITENS------*/
  
 		  oPrinter:Say(1025,0058,"Item",oArial10N,,0)
  		  oPrinter:Say(1025,0190,"Nota Fiscal",oArial10N,,0)
		  oPrinter:Say(1025,0400,"Código Produto",oArial10N,,0)
		  oPrinter:Say(1025,0700,"Descrição do Produto",oArial10N,,0)
		  oPrinter:Say(1025,1720,"Quantidade",oArial10N,,0)
		  oPrinter:Say(1025,2156,"UN",oArial10N,,0) 
 
  oPrinter:Box(0042,0046,0226,2340) //Titulo
  oPrinter:Box(0226,0046,0671,2340) //Cliente
  oPrinter:Box(0671,0046,0860,2340) //Transportadora
  oPrinter:Box(0860,0046,0995,2340) //Servico
  oPrinter:Box(0995,0046,2886,2340) //Itens (SZ4)
  oPrinter:Box(2886,0046,2986,2340) //Peso
  oPrinter:Box(2986,0046,3153,2340) //Observacao
  oPrinter:Box(3153,0046,3253,0739) //Data
  oPrinter:Box(3153,0739,3253,1596) //Solicitante
  oPrinter:Box(3153,1596,3253,2340) //Visto

Return
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³HWFATR001 ºAutor  ³ Diego Martins      º Data ³  05/05/16   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³  Rodape                                                    º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ HEWITT EQUIPAMENTOS                                        º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

Static Function ImpRodape()

  oPrinter:Say(2810,0058, "CONTINUA ..." , oArial10N,,0)  
  
  oPrinter:Say(3186,0058,"Data: ",oArial10N,,0)  
  oPrinter:Say(3186,0160, DtoC(Date()), oArial10N,,0)

  oPrinter:Say(3186,1631,"Visto:",oArial10N,,0)

  oPrinter:Say(3186,0758,"Solicitante:",oArial10N,,0)
  oPrinter:Say(3186,1000, cUserName,oArial10N,,0 )

Return  

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³HWFATR001 ºAutor  ³Microsiga           º Data ³  05/06/16   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ EXECUCAO DO RELATORIO                                      º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ HEWITT EQUIPAMENTOS                                        º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

Static Function RunReport()
		  
li       := 1075

cQuery := "SELECT Z3_NUM,Z3_OF,Z3_CLIENTE,Z3_TPFRETE,Z3_NATUREZ,Z3_CONDPAG,Z3_TRANSP,Z3_PESOL,Z3_PBRUTO,"+;
"Z3_VOLUME1,Z3_FORNECE,Z3_SERVICO,Z3_QTDSERV,Z3_VLRSERV,Z3_UMSERV,Z3_ORDFABR, Z3_PEDCLIE, Z3_OBS,"+;
"Z4_PRODUTO,Z4_DESC,Z4_NUM,Z3_EMISSAO,Z4_ITEM,Z4_QTDVEN,Z4_UM, Z4_NFORI"
cQuery += " FROM " + RetSqlName("SZ3")    + "   SZ3 "  
cQuery += " JOIN " + RetSqlName("SZ4") + " SZ4"
cQuery += " ON SZ3.Z3_NUM = SZ4.Z4_NUM"
cQuery += " WHERE SZ3.Z3_NUM BETWEEN '" + mv_par01 + "' AND '" + mv_par02 + "' " 
cQuery += " AND SZ3.D_E_L_E_T_ = '' "
cQuery += " ORDER BY Z3_NUM" 

TCQUERY cQuery NEW ALIAS "TRBSZ3"   

cQuery := ChangeQuery(cQuery) 

DBSelectArea("TRBSZ3")

While TRBSZ3->(!Eof()) .and. TRBSZ3->Z4_NUM == TRBSZ3->Z3_NUM 

	  If li > 2700
          ImpRodape() 	// Imprime rodape do formulario e salta para a proxima folha
		  ImpCabec()
		  li  := 1075
	  Endif   
	  
	  li:=li+45
   		                                                                                                               	
		  oPrinter:Say(li,0058,TRBSZ3->Z4_ITEM,oArial8,,0) 
		  oPrinter:Say(li,0200,TRBSZ3->Z4_NFORI,oArial8,,0)                                
		  oPrinter:Say(li,0400,TRBSZ3->Z4_PRODUTO,oArial8,,0)
		  oPrinter:Say(li,0700,TRBSZ3->Z4_DESC,oArial8,,0)
		  oPrinter:Say(li,1850,Transform(TRBSZ3->Z4_QTDVEN,"@E 9,999,999.9999"),oArial8,,,,1)
		  oPrinter:Say(li,2156,TRBSZ3->Z4_UM,oArial8,,0)                                                   
	  
	      TRBSZ3->(DbSkip()) 
	           	       
 	  If li > 2700
		  ImpCabec()
	  Endif 

EndDo 
 
	TRBSZ3->(DbCloseArea())                   

Return .T.                 

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-¿±±
±±³Fun‡…o    ³ AjustaSX1    ³Autor ³  Diego Martins       ³    06/05/2016 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-´±±
±±³Descri‡…o ³ Ajusta perguntas do SX1                                    ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function AjustaSX1()

Local aArea := GetArea()

PutSx1(cPerg,"01","Solicitação NF De ?"," "," ","mv_ch1","C",6,0,0,	"G","","SZ3_","","","mv_par01"," "," "," ","",	" "," "," "," "," "," ", " "," "," "," ",	" "," ",{"Informe o número da Solicitação NF "},{"Informe o número da Solicitação NF De"},{"Informe o número dda Solicitação NF De"})
PutSx1(cPerg,"02","Solicitação NF Até ?"," "," ","mv_ch2","C",6,0,0,	"G","","SZ3_","","","mv_par02"," "," "," ","",	" "," "," "," "," "," ", " "," "," "," ",	" "," ",{"Informe o número da Solicitação NF"},{"Informe o número da Solicitação NF Até"},{"Informe o número da Solicitação NF Até"})
//PutSx1(cPerg,"03","Emissão De ?"," "," ","mv_ch3","D",8,0,0,	"G","","","","","mv_par03"," "," "," ","",	" "," "," "," "," "," ", " "," "," "," ",	" "," ",{"Informe a data da Solicitação NF De"},{"Informe a data da Solicitação NF De"},{"Informe a data da Solicitação NF Até"})
//PutSx1(cPerg,"04","Emissão Até ?"," "," ","mv_ch4","D",8,0,0,	"G","","","","","mv_par04"," "," "," ","",	" "," "," "," "," "," ", " "," "," "," ",	" "," ",{"Informe a data da Solicitação NF Até"},{"Informe a data da Solicitação NF Até"},{"Informe a data da Solicitação NF Até"})

RestArea(aArea)

Return