??? space(int((36 - len(AllTrim(SUBSTR(AllTrim("MERCADO 3 IRMAOS"),1,36)))) / 2))+AllTrim(SUBSTR(AllTrim("MERCADO 3 IRMAOS"),1,36)) + chr(13) + chr(10)
??? space(int((36 - len(AllTrim(SUBSTR(AllTrim(TSC008A.EMPEND) + ", " + ALLTRIM(TSC008A.EMPNUM) + " - " + ALLTRIM(TSC008A.EMPBAI),1,36)))) / 2))+AllTrim(SUBSTR(AllTrim(ALLTRIM(TSC008A.EMPEND) + ", " + ALLTRIM(TSC008A.EMPNUM) + " - " + ALLTRIM(TSC008A.EMPBAI)),1,36)) + chr(13) +chr(10)
??? space(int((36 - len(AllTrim(SUBSTR(AllTrim(TSC008A.EMPCIDAD) + " - " + ALLTRIM(TSC008A.EMPEST),1,36)))) / 2))+AllTrim(SUBSTR(AllTrim(TSC008A.EMPCIDAD) + " - " + ALLTRIM(TSC008A.EMPEST),1,36)) + chr(13) + chr(10)
??? REPLICATE("-",36) + chr(13) + chr(10)
??? DTOC(TSCOMP1.DATAA) + SPACE(4) + TSCOMP1.HORAA + SPACE(7) + "ORC: " + SUBSTR(TSCOMP1.CODIGO,5,6) + chr(13) + chr(10)
??? SPACE(10) + "O R C A M E N T O" + chr(13) + chr(10)
??? "ITEM CODIGO        DESCRICAO" + chr(13) + chr(10)
??? "QTD.     UN. VL UNIT(R$) VL ITEM(R$)" + chr(13) + chr(10)
??? REPLICATE("-",36) + chr(13) + chr(10)

SET PRINTER TO
