/* Padrao Intermec ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³IMG07 ºAutor ³Ricardo º Data ³ 10/07/01 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Ponto de entrada referente a imagem de identificacao do º±± ±±º ³volume (entrada) º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ AP5 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function Img07 // imagem de etiqueta de volume (entrada) Local cVolume := paramixb[1] Local cNota := paramixb[2] Local cSerie := paramixb[3] Local cForn := paramixb[4] Local cLoja := paramixb[5] Local cID Local sConteudo IF UsaCB0("07") cID := CBGrvEti('07',{cVolume,cNota,cSerie,cForn,cLoja}) Else cID := cNota+cSerie+cForn+cLoja 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,"VOLUME","R","2","01,01") MSCBSAY(29,33,"CODIGO","R","2","01,01") MSCBSAY(26,33, cVolume, "R", "2", "01,01") MSCBSAY(22,05,'NOTA :'+cNota+' '+cSerie,"R","2","01,01") MSCBSAY(19,05,'FORNECEDOR:'+Posicione('SA2',1,xFilial("SA2")+paramixb[4]+paramixb[5],"A2_NREDUZ"),"R", "2", "01,01") MSCBSAYBAR(12,22,cId,"R","MB07",8.36,.F.,.T.,.F.,,2,2,.F.,.F.,"1",.T.) MSCBInfoEti("Volume Entrada","30X100") sConteudo:=MSCBEND() Return sConteudo