/* Padrao Intermec ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³img01 ºAutor ³Sandro Valex º Data ³ 19/06/01 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Ponto de entrada referente a imagem de identificacao do º±± ±±º ³produto. Padrao Microsiga º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ AP5 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function Img01 //dispositivo de identificacao de produto Local cCodigo,sConteudo,cTipoBar, nX Local nqtde := If(len(paramixb) >= 1,paramixb[ 1],NIL) Local cCodSep := If(len(paramixb) >= 2,paramixb[ 2],NIL) Local cCodID := If(len(paramixb) >= 3,paramixb[ 3],NIL) Local nCopias := If(len(paramixb) >= 4,paramixb[ 4],0) Local cNFEnt := If(len(paramixb) >= 5,paramixb[ 5],NIL) Local cSeriee := If(len(paramixb) >= 6,paramixb[ 6],NIL) Local cFornec := If(len(paramixb) >= 7,paramixb[ 7],NIL) Local cLojafo := If(len(paramixb) >= 8,paramixb[ 8],NIL) Local cArmazem := If(len(paramixb) >= 9,paramixb[ 9],NIL) Local cOP := If(len(paramixb) >=10,paramixb[10],NIL) Local cNumSeq := If(len(paramixb) >=11,paramixb[11],NIL) Local cLote := If(len(paramixb) >=12,paramixb[12],NIL) Local cSLote := If(len(paramixb) >=13,paramixb[13],NIL) Local dValid := If(len(paramixb) >=14,paramixb[14],NIL) Local cCC := If(len(paramixb) >=15,paramixb[15],NIL) Local cLocOri := If(len(paramixb) >=16,paramixb[16],NIL) Local cOPREQ := If(len(paramixb) >=17,paramixb[17],NIL) Local cNumSerie:= If(len(paramixb) >=18,paramixb[18],NIL) Local cOrigem := If(len(paramixb) >=19,paramixb[19],NIL) Local cEndereco:= If(len(paramixb) >=20,paramixb[20],NIL) Local cPedido := If(len(paramixb) >=21,paramixb[21],NIL) Local nResto := If(len(paramixb) >=22,paramixb[22],0) Local cItNFE := If(len(paramixb) >=23,paramixb[23],NIL) cLocOri := If(cLocOri==cArmazem,' ',cLocOri) nQtde := If(nQtde==NIL,SB1->B1_QE,nQtde) cCodSep := If(cCodSep==NIL,'',cCodSep) If nResto > 0 nCopias++ EndIf For nX := 1 to nCopias If cCodID#NIL CBRetEti(cCodID) nqtde := CB0->CB0_QTDE cCodSep := CB0->CB0_USUARIO cNFEnt := CB0->CB0_NFENT cSeriee := CB0->CB0_SERIEE cFornec := CB0->CB0_FORNEC cLojafo := CB0->CB0_LOJAFO cArmazem := CB0->CB0_LOCAL cOP := CB0->CB0_OP cNumSeq := CB0->CB0_NUMSEQ cLote := CB0->CB0_LOTE cSLote := CB0->CB0_SLOTE cCC := CB0->CB0_CC cLocOri := CB0->CB0_LOCORI cOPReq := CB0->CB0_OPREQ cNumserie:= CB0->CB0_NUMSER cOrigem := CB0->CB0_ORIGEM cEndereco:= CB0->CB0_LOCALI cPedido := CB0->CB0_PEDCOM cItNFE := CB0->CB0_ITNFE EndIf If nResto > 0 .and. nX==nCopias nQtde := nResto EndIf If Usacb0("01") cCodigo := If(cCodID ==NIL,CBGrvEti('01',{SB1->B1_COD,nQtde,cCodSep,cNFEnt,cSeriee,cFornec,cLojafo,cPedido,cEndereco,cArmazem,cOp,cNumSeq,NIL,NIL,NIL,cLote,cSLote,dValid,cCC,cLocOri,NIL,cOPReq,cNumserie,cOrigem,cItNFE}),cCodID) Else cCodigo := SB1->B1_CODBAR EndIf cCodigo := Alltrim(cCodigo) cTipoBar := 'MB07' //128 If ! Usacb0("01") If Len(cCodigo) == 8 cTipoBar := 'MB03' ElseIf Len(cCodigo) == 13 cTipoBar := 'MB04' EndIf EndIf // MSCBLOADGRF("SIGA.BMP") MSCBBEGIN(1,3) MSCBBOX(01,02,34,76,1) MSCBLineV(30,30,76,1) MSCBLineV(23,02,76,1) MSCBLineV(15,02,76,1) MSCBLineH(23,30,34,1) // MSCBGRAFIC(26,2,"SIGA",.T.) MSCBSAY(32,33,'PRODUTO',"R","2","01,01") MSCBSAY(29,33,"CODIGO","R","2","01,01") MSCBSAY(26,33, AllTrim(SB1->B1_COD), "R", "2", "01,01") MSCBSAY(22,05,"DESCRICAO","R","2","01,01") MSCBSAY(19,05,SB1->B1_DESC,"R", "2", "01,01") If ! Empty(cLote) MSCBSAY(16,05,"Lote "+cLote+'-'+cSLote, "R", "2", "01,01") EndIf MSCBSAYBAR(12,22,cCodigo,"R",cTipoBar,8.36,.F.,.T.,.F.,,2,2,.F.,.F.,"1",.T.) MSCBInfoEti("Produto","30X100") sConteudo:=MSCBEND() If Type('cProgImp')=="C" .and. cProgImp=="ACDV120" GravaCBE(CB0->CB0_CODETI,SB1->B1_COD,nQtde,cLote,dValid) EndIf Next Return sConteudo /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³img01cx ºAutor ³Sandro Valex º Data ³ 19/06/01 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Ponto de entrada referente a imagem de identificacao do º±± ±±º ³produto para caixa a agranel º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ AP5 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function Img01CX //dispositivo de identificacao de produto Local cCodigo,sConteudo,cTipoBar, nX Local nqtde := If(len(paramixb) >= 1,paramixb[ 1],NIL) Local cCodSep := If(len(paramixb) >= 2,paramixb[ 2],NIL) Local cCodID := If(len(paramixb) >= 3,paramixb[ 3],NIL) Local nCopias := If(len(paramixb) >= 4,paramixb[ 4],NIL) Local cArmazem := If(len(paramixb) >= 5,paramixb[ 5],NIL) Local cEndereco:= If(len(paramixb) >= 6,paramixb[ 6],NIL) nQtde := If(nQtde==NIL,SB1->B1_QE,nQtde) cCodSep := If(cCodSep==NIL,'',cCodSep) For nX := 1 to nCopias If Usacb0("01") cCodigo := If(cCodID ==NIL,CBGrvEti('01',{SB1->B1_COD,nQtde,cCodSep,NIL,NIL,NIL,NIL,NIL,cEndereco,cArmazem,,,,,,,,}),cCodID) Else cCodigo := SB1->B1_CODBAR EndIf cCodigo := Alltrim(cCodigo) cTipoBar := 'MB07' //128 If ! Usacb0("01") If Len(cCodigo) == 8 cTipoBar := 'MB03' ElseIf Len(cCodigo) == 13 cTipoBar := 'MB04' EndIf EndIf // MSCBLOADGRF("SIGA.BMP") MSCBBEGIN(1,3) MSCBBOX(01,02,34,76,1) MSCBLineV(30,30,76,1) MSCBLineV(23,02,76,1) MSCBLineV(15,02,76,1) MSCBLineH(23,30,34,1) // MSCBGRAFIC(26,2,"SIGA",.T.) MSCBSAY(32,33,'CAIXA',"R","2","01,01") MSCBSAY(29,33,"CODIGO","R","2","01,01") MSCBSAY(26,33, AllTrim(SB1->B1_COD), "R", "2", "01,01") MSCBSAY(22,05,"DESCRICAO","R","2","01,01") MSCBSAY(19,05,SB1->B1_DESC,"R", "2", "01,01") MSCBSAYBAR(12,22,cCodigo,"R",cTipoBar,8.36,.F.,.T.,.F.,,2,2,.F.,.F.,"1",.T.) MSCBInfoEti("Produto Granel","30X100") sConteudo:=MSCBEND() Next Return sConteudo /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³img01De ºAutor ³Sandro Valex º Data ³ 19/06/01 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Ponto de entrada referente a imagem de identificacao da º±± ±±º ³Unidade de despacho º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ AP5 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function Img01DE //dispositivo de identificacao de unidade de despacho produto Local nCopias := If(len(paramixb) >= 1,paramixb[ 1],NIL) Local cCodigo := If(len(paramixb) >= 2,Alltrim(paramixb[ 2]),NIL) // MSCBLOADGRF("SIGA.BMP") MSCBBEGIN(nCopias,3) MSCBBOX(01,02,34,76,1) MSCBLineV(30,30,76,1) MSCBLineV(23,02,76,1) MSCBLineV(15,02,76,1) MSCBLineH(23,30,34,1) // MSCBGRAFIC(26,2,"SIGA",.T.) MSCBSAY(32,33,'UNID. DE DESPACHO',"R","2","01,01") MSCBSAY(29,33,"CODIGO","R","2","01,01") MSCBSAY(26,33, AllTrim(SB1->B1_COD), "R", "2", "01,01") MSCBSAY(22,05,"DESCRICAO","R","2","01,01") MSCBSAY(19,05,SB1->B1_DESC,"R", "2", "01,01") MSCBSAYBAR(12,22,cCodigo,"R","MB01",8.36,.F.,.T.,.F.,,2,2,.F.,.F.,"1",.T.) MSCBInfoEti("Unid.Despacho","30X100") sConteudo:=MSCBEND() Return sConteudo