do case

case type("caixa_receita.ctnetiqueta.btnetiqueta")<>"U" or type("receitas.btnetiqueta")<>"U"

if type("caixa_receita.ctnetiqueta.btnetiqueta")<>"U"
cL1=alltrim(caixa_receita.ctnetiqueta.txtLinha1.Value)
cL2=alltrim(caixa_receita.ctnetiqueta.txtLinha2.Value)
cL3=alltrim(caixa_receita.ctnetiqueta.txtLinha3.Value)
cL4=alltrim(caixa_receita.ctnetiqueta.txtLinha4.Value)
cL5=alltrim(caixa_receita.ctnetiqueta.txtLinha5.Value)
cL6=alltrim(caixa_receita.ctnetiqueta.txtLinha6.Value)
cL7=alltrim(caixa_receita.ctnetiqueta.txtLinha7.Value)
cL8=alltrim(caixa_receita.ctnetiqueta.txtLinha8.Value)
cL9=alltrim(caixa_receita.ctnetiqueta.txtLinha9.Value)
else
cL1=alltrim(etiquetas.txtLinha1.Value)
cL2=alltrim(etiquetas.txtLinha2.Value)
cL3=alltrim(etiquetas.txtLinha3.Value)
cL4=alltrim(etiquetas.txtLinha4.Value)
cL5=alltrim(etiquetas.txtLinha5.Value)
cL6=alltrim(etiquetas.txtLinha6.Value)
cL7=alltrim(etiquetas.txtLinha7.Value)
cL8=alltrim(etiquetas.txtLinha8.Value)
cL9=alltrim(etiquetas.txtLinha9.Value)
endif

cArq=fcreate("c:\prosystem_local\temp.txt",0)
fseek(cArq,0,2)
fputs(cArq,"c0000")
fseek(cArq,0,2)
fputs(cArq,"KI503")
fseek(cArq,0,2)
fputs(cArq,"O0220")
*fseek(cArq,0,2)
*fputs(cArq,"f220")
fseek(cArq,0,2)
fputs(cArq,"KW0386")
fseek(cArq,0,2)
fputs(cArq,"KI7
")
fseek(cArq,0,2)
fputs(cArq,"V0")
fseek(cArq,0,2)
fputs(cArq,"L")
fseek(cArq,0,2)
fputs(cArq,"H18")
fseek(cArq,0,2)
fputs(cArq,"PC")
fseek(cArq,0,2)
fputs(cArq,"A2")
fseek(cArq,0,2)
fputs(cArq,"D11")
fseek(cArq,0,2)
fputs(cArq,"191100101000050"+cL1)
fseek(cArq,0,2)
fputs(cArq,"191100100900050"+cL2)
fseek(cArq,0,2)
fputs(cArq,"191100100800050"+cL3)
fseek(cArq,0,2)
fputs(cArq,"191100000700050"+cL4)
fseek(cArq,0,2)
fputs(cArq,"191100000600050"+cL5)
fseek(cArq,0,2)
fputs(cArq,"191100000500050"+cL6)
fseek(cArq,0,2)
fputs(cArq,"191100000400050"+cL7)
fseek(cArq,0,2)
fputs(cArq,"191100000300050"+cL8)
fseek(cArq,0,2)
fputs(cArq,"191100000200050"+cL9)
fseek(cArq,0,2)
fputs(cArq,"^01")
fseek(cArq,0,2)
fputs(cArq,"Q0001")
fseek(cArq,0,2)
fputs(cArq,"E")
fseek(cArq,0,2)
fputs(cArq,"f320")
fclose(cArq)
run type c:\prosystem_local\temp.txt >\\01laboratorio\laboratorio
erase temp.txt

case type("etiquetas.btnEtiqueta")="U"

if messagebox("Deseja imprimir etiquetas de Produto? Clique em NÃO para etiqueta de Gôndola.",4+32,"Pergunta")=6
local nRt as integer, nContaEtiq as Integer, cCodigo1 as Character, cCodigo2 as Character, cCodigo3 as Character, ;
	cPreco1 as Character, cPreco2 as Character, cPreco3 as Character, cRef1 as Character, cRef2 as Character,;
	cRef3 as Character, cDescricao1 as Character, cDescricao2 as Character, cDescricao3 as Character,;
	cPromocao1 as Character, cPromocao2 as Character, cPromocao3 as Character,;
	cDesconto1 as Character, cDesconto2 as Character, cDesconto3 as Character,;
	cValorFinal1 as Character, cValorFinal2 as Character, cValorFinal3 as Character,;
	cDescricao12 as Character, cDescricao22 as Character, cDescricao32 as Character, nContaLoop as Integer

store "" to cCodigo1, cCodigo2, cCodigo3, cPreco1, cPreco2, cPreco3, cRef1, cRef2, cRef3, cDescricao1,;
	cDescricao2, cDescricao3, cDescricao12, cDescricao22, cDescricao32, cPromocao1, cPromocao2, cPromocao3,;
	cValorFinal1, cValorFinal2, cValorFinal3, cDesconto1, cDesconto2, cDesconto3

lNarq=fcreate("c:\prosystem_local\temp.txt",0)
fseek(lNarq,0,2)
fputs(lNarq,"qB")
fseek(lNarq,0,2)
fputs(lNarq,"c0000")
fseek(lNarq,0,2)
fputs(lNarq,"KI503")
fseek(lNarq,0,2)
fputs(lNarq,"O0220")
fseek(lNarq,0,2)
fputs(lNarq,"f220")
fseek(lNarq,0,2)
fputs(lNarq,"KW0429")
fseek(lNarq,0,2)
fputs(lNarq,"KI7
")
fseek(lNarq,0,2)
fputs(lNarq,"V0")
fseek(lNarq,0,2)
fputs(lNarq,"L")
fseek(lNarq,0,2)
fputs(lNarq,"H12")
fseek(lNarq,0,2)
fputs(lNarq,"PC")

select cursor_etiquetaII
nRt=reccount("cursor_etiquetaII")
nContaLoop=0
nContaEtiq=1
scan all
	nContaLoop = nContaLoop + 1
	do case
		case nContaEtiq=1
			cCodigo1	=padl(cursor_etiquetaII.codigo,6,"0")
			cPreco1		=alltrim(str(cursor_etiquetaII.valor,10,2))
			cPromocao1	=alltrim(str(cursor_etiquetaII.promocao,10,2))
			cDesconto1	=alltrim(str(iif(cursor_etiquetaII.desconto>0,(cursor_etiquetaII.valor)-((cursor_etiquetaII.valor)*(cursor_etiquetaII.desconto/100)),cursor_etiquetaII.valor),10,2))
			cDescricao1	=alltrim(left(cursor_etiquetaII.descricao,22))
			cDescricao12	=alltrim(substr(cursor_etiquetaII.descricao,23,22))
			nContaEtiq=2
		case nContaEtiq=2
			cCodigo2	=padl(cursor_etiquetaII.codigo,6,"0")
			cPreco2		=alltrim(str(cursor_etiquetaII.valor,10,2))
			cPromocao2	=alltrim(str(cursor_etiquetaII.promocao,10,2))	
			cDesconto2	=alltrim(str(iif(cursor_etiquetaII.desconto>0,(cursor_etiquetaII.valor)-((cursor_etiquetaII.valor)*(cursor_etiquetaII.desconto/100)),cursor_etiquetaII.valor),10,2))
			cDescricao2	=alltrim(left(cursor_etiquetaII.descricao,22))
			cDescricao22	=alltrim(substr(cursor_etiquetaII.descricao,23,22))
			nContaEtiq=3
		case nContaEtiq=3
			cCodigo3	=padl(cursor_etiquetaII.codigo,6,"0")
			cPreco3		=alltrim(str(cursor_etiquetaII.valor,10,2))
			cPromocao3	=alltrim(str(cursor_etiquetaII.promocao,10,2))	
			cDesconto3	=alltrim(str(iif(cursor_etiquetaII.desconto>0,(cursor_etiquetaII.valor)-((cursor_etiquetaII.valor)*(cursor_etiquetaII.desconto/100)),cursor_etiquetaII.valor),10,2))
			cDescricao3	=alltrim(left(cursor_etiquetaII.descricao,22))
			cDescricao32	=alltrim(substr(cursor_etiquetaII.descricao,23,22))
			nContaEtiq=1
		endcase	

	if  nContaEtiq=1 or nContaLoop=nRt
		fseek(lNarq,0,2)
		fputs(lNarq,"A2")
		fseek(lNarq,0,2)
		fputs(lNarq,"D11")
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600690012PRECO BAIXO 3066-3830")
		fseek(lNarq,0,2)
		fputs(lNarq,"1E2201500420017"+cCodigo1)
			if cPromocao1>"0.00"
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600300012De R$ "+cPreco1+" por")
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300080R$ "+cPromocao1)
			else
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300040R$ "+cPreco1)
			endif
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600160012"+cDescricao1)
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600070012"+cDescricao12)
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600690152PRECO BAIXO 3066-3830")
		fseek(lNarq,0,2)
		fputs(lNarq,"1E2201500420155"+cCodigo2)
			if cPromocao2>"0.00"
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600300150De R$ "+cPreco2+" por")
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300220R$ "+cPromocao2)
			else
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300180R$ "+cPreco2)
			endif
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600160150"+cDescricao2)
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600070150"+cDescricao22)
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600690291PRECO BAIXO 3066-3830")
		fseek(lNarq,0,2)
		fputs(lNarq,"1E2201500420295"+cCodigo3)
			if cPromocao3>"0.00"
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600300290De R$ "+cPreco3+" por")
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300360R$ "+cPromocao3)
			else
		fseek(lNarq,0,2)
		fputs(lNarq,"121100000300320R$ "+cPreco3)
			endif
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600160290"+cDescricao3)
		fseek(lNarq,0,2)
		fputs(lNarq,"1911A0600070290"+cDescricao32)
		fseek(lNarq,0,2)
		fputs(lNarq,"^1")
		fseek(lNarq,0,2)
		fputs(lNarq,"Q0001")
		fseek(lNarq,0,2)
		fputs(lNarq,"E")
		fseek(lNarq,0,2)
		fputs(lNarq,"f320")
		if nContaLoop<>nRt
			fseek(lNarq,0,2)
			fputs(lNarq,"L")
		endif		
store "" to cCodigo1, cCodigo2, cCodigo3, cPreco1, cPreco2, cPreco3, cRef1, cRef2, cRef3, cDescricao1,;
	cDescricao2, cDescricao3, cDescricao12, cDescricao22, cDescricao32, cPromocao1, cPromocao2, cPromocao3,;
	cValorFinal1, cValorFinal2, cValorFinal3, cDesconto1, cDesconto2, cDesconto3

	endif
endscan
fclose(lNarq)
run type c:\prosystem_local\temp.txt>\\025WKS\Argox
erase temp.txt

else

local nRt as integer, nContaEtiq as Integer, cCodigo as Character, cPreco as Character, cPromocao as Character, ;
	cDescricao1 as Character, cDescricao2 as Character, cDesconto as Character, cCod_Barra as Character, nContaLoop as Integer

store "" to cCodigo, cDescricao1, cDescricao2, cCodigo, cPromocao, cCod_Barra, cDesconto
lNarq=fcreate("c:\prosystem_local\temp.txt",0)

select cursor_etiquetaII
nRt=reccount("cursor_etiquetaII")
nContaLoop=0


scan all
	nContaLoop = nContaLoop + 1
	cCodigo		=padl(cursor_etiquetaII.codigo,6,"0")
	cPreco		=alltrim(str(cursor_etiquetaII.valor,10,2))
	cPromocao	=alltrim(str(cursor_etiquetaII.promocao,10,2))	
	cDesconto	=alltrim(str(iif(cursor_etiquetaII.desconto>0,(cursor_etiquetaII.valor)-((cursor_etiquetaII.valor)*(cursor_etiquetaII.desconto/100)),0),10,2))
	cDescricao1	=alltrim(left(cursor_etiquetaII.descricao,40))
	cDescricao2	=alltrim(substr(cursor_etiquetaII.descricao,41,40))
	cCod_Barra	=alltrim(cursor_etiquetaII.cod_barra)

	if (nContaLoop/1)=int(nContaLoop/1) or nRT=nContaLoop
		if cPromocao>"0.00"	
			fseek(lNarq,0,2)
			fputs(lNarq,"c0000")
			fseek(lNarq,0,2)
			fputs(lNarq,"KI503")
			fseek(lNarq,0,2)
			fputs(lNarq,"O0220")
			fseek(lNarq,0,2)
			fputs(lNarq,"KW0386")
			fseek(lNarq,0,2)
			fputs(lNarq,"KI7
")
			fseek(lNarq,0,2)
			fputs(lNarq,"V0")
			fseek(lNarq,0,2)
			fputs(lNarq,"L")
			fseek(lNarq,0,2)
			fputs(lNarq,"H12")
			fseek(lNarq,0,2)
			fputs(lNarq,"PC")
			fseek(lNarq,0,2)
			fputs(lNarq,"A2")
			fseek(lNarq,0,2)
			fputs(lNarq,"D11")
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1000900120"+"FARMACIA PRECO BAIXO")
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1400700020"+cDescricao1)
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1000580020"+"Cod.: "+cCodigo)
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1000150030"+"De: R$ "+cPreco)
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A2200120145"+"OFERTA: R$ "+cPromocao)
			fseek(lNarq,0,2)
			fputs(lNarq,"^01")
			fseek(lNarq,0,2)
			fputs(lNarq,"Q0001")
			fseek(lNarq,0,2)
			fputs(lNarq,"E")
			fseek(lNarq,0,2)
			fputs(lNarq,"f320")
			store "" to cCodigo, cDescricao1, cDescricao2, cCodigo, cPromocao, cCod_Barra, cDesconto
		else
			fseek(lNarq,0,2)
			fputs(lNarq,"c0000")
			fseek(lNarq,0,2)
			fputs(lNarq,"KI503")
			fseek(lNarq,0,2)
			fputs(lNarq,"O0220")
			fseek(lNarq,0,2)
			fputs(lNarq,"KW0386")
			fseek(lNarq,0,2)
			fputs(lNarq,"KI7
")
			fseek(lNarq,0,2)
			fputs(lNarq,"V0")
			fseek(lNarq,0,2)
			fputs(lNarq,"L")
			fseek(lNarq,0,2)
			fputs(lNarq,"H12")
			fseek(lNarq,0,2)
			fputs(lNarq,"PC")
			fseek(lNarq,0,2)
			fputs(lNarq,"A2")
			fseek(lNarq,0,2)
			fputs(lNarq,"D11")
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1000900120"+"FARMACIA PRECO BAIXO")
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1400700020"+cDescricao1)
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A1000580020"+"Cod.: "+cCodigo)
			fseek(lNarq,0,2)
			fputs(lNarq,"1911A2200150140"+"R$ "+cPreco)
			fseek(lNarq,0,2)
			fputs(lNarq,"^01")
			fseek(lNarq,0,2)
			fputs(lNarq,"Q0001")
			fseek(lNarq,0,2)
			fputs(lNarq,"E")
			fseek(lNarq,0,2)
			fputs(lNarq,"f320")
			store "" to cCodigo, cDescricao1, cDescricao2, cCodigo, cPromocao, cCod_Barra, cDesconto
		endif
	endif
endscan
fclose(lNarq)
run type c:\prosystem_local\temp.txt>\\025WKS\Argox
erase temp.txt
endif

case type("etiquetas.btnEtiqueta")<>"U"

cArq=fcreate("c:\prosystem_local\temp.txt",0)
fseek(cArq,0,2)
fputs(cArq,"c0000")
fseek(cArq,0,2)
fputs(cArq,"KI503")
fseek(cArq,0,2)
fputs(cArq,"O0220")
*fseek(cArq,0,2)
*fputs(cArq,"f220")
fseek(cArq,0,2)
fputs(cArq,"KW0386")
fseek(cArq,0,2)
fputs(cArq,"KI7
")
fseek(cArq,0,2)
fputs(cArq,"V0")
fseek(cArq,0,2)
fputs(cArq,"L")
fseek(cArq,0,2)
fputs(cArq,"H20")
fseek(cArq,0,2)
fputs(cArq,"PC")
fseek(cArq,0,2)
fputs(cArq,"A2")
fseek(cArq,0,2)
fputs(cArq,"D11")
fseek(cArq,0,2)
if etiquetas.etiqueta="cEtiqueta"
fputs(cArq,"191100200900135"+alltrim(etiquetas.txtLinha1.Value))
fseek(cArq,0,2)
fputs(cArq,"191100200800135"+alltrim(etiquetas.txtLinha3.Value))
fseek(cArq,0,2)
fputs(cArq,"191100200700135"+alltrim(etiquetas.txtlinha2.Value))
fseek(cArq,0,2)
fputs(cArq,"191100200600135"+alltrim(etiquetas.txtLinha4.Value))
fseek(cArq,0,2)
fputs(cArq,"191100200500135"+alltrim(etiquetas.txtLinha5.Value))
fseek(cArq,0,2)
fputs(cArq,"191100200400135"+alltrim(etiquetas.txtLinha6.Value))
fseek(cArq,0,2)
else
fputs(cArq,"191100101030135"+left((etiquetas.txtLinha1.Value),42))
fseek(cArq,0,2)
fputs(cArq,"191100101030350"+right(alltrim(etiquetas.txtLinha1.Value),08))
fseek(cArq,0,2)
fputs(cArq,"191100100930135"+substr(alltrim(etiquetas.txtLinha9.Value),17,65))
fseek(cArq,0,2)
fputs(cArq,"191100000780145"+alltrim(etiquetas.txtLinha3.Value))
fseek(cArq,0,2)
fputs(cArq,"191100000680145"+alltrim(etiquetas.txtLinha4.Value))
fseek(cArq,0,2)
fputs(cArq,"191100000580145"+alltrim(etiquetas.txtLinha5.Value))
fseek(cArq,0,2)
fputs(cArq,"191100000480145"+alltrim(etiquetas.txtLinha6.Value))
fseek(cArq,0,2)
fputs(cArq,"191100000380145"+alltrim(etiquetas.txtLinha7.Value))
fseek(cArq,0,2)
fputs(cArq,"191100000280145"+alltrim(etiquetas.txtLinha8.Value))
fseek(cArq,0,2)
fputs(cArq,"191100100150133"+substr((etiquetas.txtLinha2.Value),33,12)+"      "+left((etiquetas.txtLinha2.Value),13)+"      "+substr((etiquetas.txtLinha2.Value),44,15)+"     "+left(alltrim(etiquetas.txtLinha9.Value),15))
fseek(cArq,0,2)
endif
fputs(cArq,"^01")
fseek(cArq,0,2)
fputs(cArq,"Q0001")
fseek(cArq,0,2)
fputs(cArq,"E")
fseek(cArq,0,2)
fputs(cArq,"f320")
fclose(cArq)
do case
   case alltrim(left(sys(0),at("#",sys(0))-1))="01laboratorio"
	run type c:\prosystem_local\temp.txt >\\01laboratorio\laboratorio
   case alltrim(left(sys(0),at("#",sys(0))-1))<>"Cliente-PC"
	run type c:\prosystem_local\temp.txt >\\nf-salute\argox_rotulo
endcase

erase temp.txt

endcase