/* Padrao DATAMAX ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³IMG06 ºAutor ³Sandro Valex º Data ³ 19/06/01 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Ponto de entrada referente a imagem de identificacao do º±± ±±º ³transporte º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ AP5 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function Img06 // imagem de etiqueta de transportadora Local cCodigo Local nID := paramixb[1] If nID # NIL cCodigo := nID ElseIf Empty(SA4->A4_IDETIQ) If UsaCB0("06") cCodigo := CBGrvEti('06',{SA4->A4_COD}) RecLock("SA4",.F.) SA4->A4_IDETIQ := cCodigo MsUnlock() Else cCodigo := SA4->A4_COD EndIf Else If UsaCB0("06") cCodigo := SA4->A4_IDETIQ Else cCodigo := SA4->A4_COD EndIf Endif cCodigo := Alltrim(cCodigo) MSCBLOADGRF("SIGA.BMP") MSCBBEGIN(1,6) MSCBBOX(02,01,76,34,1) MSCBLineH(30,30,76,1) MSCBLineH(02,23,76,1) MSCBLineH(02,15,76,1) MSCBLineV(30,23,34,1) MSCBGRAFIC(2,26,"SIGA") MSCBSAY(33,31,'TRANSPORTADORA',"N","2","01,01") MSCBSAY(33,27,"CODIGO","N","2","01,01") MSCBSAY(33,24,SA4->A4_COD , "N", "2", "01,01") MSCBSAY(05,20,"DESCRICAO","N","2","01,01") MSCBSAY(05,16,SA4->A4_NOME,"N", "2", "01,01") MSCBSAYBAR(22,03,cCodigo,"N","MB07",8.36,.F.,.T.,.F.,,3,2,.F.,.F.,"1",.T.) MSCBInfoEti("Transportadora","30X100") MSCBEND() Return .F.