Código: Selecionar todos
METHOD GridSelection() CLASS JPIMPOSTOClass
LOCAL oTBrowse, cnMySql := ADOClass():New( AppConexao() )
WITH OBJECT cnMySql
:cSql := "SELECT LPAD( IDIMPOSTO, 6, '0' ) AS ID, IMTRANSA, IMTRIUF, IMTRICAD, IMTRIPRO, IMCFOP, " + ;
" IMCFOP, IMIIALI, IMIPICST, IMIPIALI, IMIPIICM, IMIPSALI, IMICMCST, IMICMRED, " + ;
" IMICMALI, IMICMCST, IMICMRED, IMICMALI, IMICSALI, IMFCPALI, IMSUBIVA, " + ;
" IMSUBRED, IMSUBALI, IMISSALI, IMPISCST, IMPISALI, IMPISENQ, IMCOFCST, " + ;
" IMCOFALI, IMCOFENQ, IMLEIS, " + ;
" LEFT( AUXTRIUF.AXDESCRI, 15 ) AS TRIUFDES, " + ;
" LEFT( AUXTRICAD.AXDESCRI, 15 ) AS TRICADDES, " + ;
" LEFT( AUXTRIPRO.AXDESCRI, 15 ) AS TRIPRODES, " + ;
" LEFT( AUXIPICST.AXDESCRI, 15 ) AS IPICSTDES, " + ;
" LEFT( AUXICMCST.AXDESCRI, 15 ) AS ICMCSTDES, " + ;
" LEFT( AUXPISCST.AXDESCRI, 15 ) AS PISCSTDES, " + ;
" LEFT( AUXCOFCST.AXDESCRI, 15 ) AS COFCSTDES, " + ;
" LEFT( JPTRANSA.TRDESCRI, 15 ) AS TRANSADES " + ;
" FROM JPIMPOSTO" + ;
" LEFT JOIN JPTRANSA ON JPTRANSA.IDTRANSA=JPIMPOSTO.IMTRANSA" + ;
" LEFT JOIN JPAUXILIAR AS AUXTRIUF ON AUXTRIUF.AXTABELA=" + StringSql( AUX_TRIUF ) + " AND AUXTRIUF.AXCODIGO=JPIMPOSTO.IMTRIUF" + ;
" LEFT JOIN JPAUXILIAR AS AUXTRICAD ON AUXTRICAD.AXTABELA=" + StringSql( AUX_TRICAD ) + " AND AUXTRICAD.AXCODIGO=JPIMPOSTO.IMTRICAD" + ;
" LEFT JOIN JPAUXILIAR AS AUXTRIPRO ON AUXTRIPRO.AXTABELA=" + StringSql( AUX_TRIPRO ) + " AND AUXTRIPRO.AXCODIGO=JPIMPOSTO.IMTRIPRO" + ;
" LEFT JOIN JPAUXILIAR AS AUXIPICST ON AUXIPICST.AXTABELA=" + StringSql( AUX_IPICST ) + " AND AUXIPICST.AXCODIGO=JPIMPOSTO.IMIPICST" + ;
" LEFT JOIN JPAUXILIAR AS AUXICMCST ON AUXICMCST.AXTABELA=" + StringSql( AUX_ICMCST ) + " AND AUXICMCST.AXCODIGO=SUBSTR( JPIMPOSTO.IMICMCST, 2 )" + ;
" LEFT JOIN JPAUXILIAR AS AUXPISCST ON AUXPISCST.AXTABELA=" + StringSql( AUX_PISCST ) + " AND AUXPISCST.AXCODIGO=JPIMPOSTO.IMPISCST" + ;
" LEFT JOIN JPAUXILIAR AS AUXCOFCST ON AUXCOFCST.AXTABELA=" + StringSql( AUX_PISCST ) + " AND AUXCOFCST.AXCODIGO=JPIMPOSTO.IMCOFCST" + ;
" ORDER BY TRANSADES"
:Execute()
oTBrowse := { ;
{ "N.Lanç", { || :String( "ID", 6 ) } }, ;
{ "Transação", { || :String( "IMTRANSA", 6 ) + " " + :String( "TRANSADES", 15 ) } }, ;
{ "Trib.UF", { || :String( "IMTRIUF", 6 ) + " " + :String( "TRIUFDES", 15 ) } }, ;
{ "Trib.Cad", { || :String( "IMTRICAD", 6 ) + " " + :String( "TRICADDES", , 15 ) } }, ;
{ "Trib.Prod", { || :String( "IMTRIPRO", 6 ) + " " + :String( "TRIPRODES", 15 ) } }, ;
{ "CFOP", { || :String( "IMCFOP", 6 ) } }, ;
{ "II.Alíq", { || Str( :Number( "IMIIALI" ), 6, 2 ) } }, ;
{ "IPI CST", { || :String( "IMIPICST", 2 ) + " " + :String( "IPICSTDES", 15 ) } }, ;
{ "IPI Alíq", { || Str( :Number( "IMIPIALI" ), 6, 2 ) } }, ;
{ "IPI ICM", { || Str( :Number( "IMIPIICM" ), 6, 2 ) } }, ;
{ "IPI Simp", { || Str( :Number( "IMIPSALI" ), 6, 2 ) } }, ;
{ "ICMS CST", { || :String( "IMICMCST", 4 ) + " " + :String( "ICMCSTDES", 15 ) } }, ;
{ "ICMS Red", { || Str( :Number( "IMICMRED" ), 6, 2 ) } }, ;
{ "ICMS Alíq", { || Str( :Number( "IMICMALI" ), 6, 2 ) } }, ;
{ "ICMS Simp", { || Str( :Number( "IMICSALI" ), 9, 5 ) } }, ;
{ "FCP Aliq", { || Str( :Number( "IMFCPALI" ), 6, 2 ) } }, ;
{ "ST IVA", { || Str( :Number( "IMSUBIVA" ), 6, 2 ) } }, ;
{ "ST Red", { || Str( :Number( "IMSUBRED" ), 6, 2 ) } }, ;
{ "ST Alíq", { || Str( :Number( "IMSUBALI" ), 6, 2 ) } }, ;
{ "ISS Alíq", { || Str( :Number( "IMISSALI" ), 6, 2 ) } }, ;
{ "PIS CST", { || :String( "IMPISCST", 2 ) + " " + :String( "PISCSTDES", 15 ) } }, ;
{ "PIS Alíq", { || Str( :Number( "IMPISALI" ), 6, 2 ) } }, ;
{ "PIS Enq", { || :String( "IMPISENQ", 3 ) } }, ;
{ "Cofins CST", { || :String( "IMCOFCST", 2 ) + " " + :String( "COFCSTDES", , 15 ) } }, ;
{ "Cof Alíq", { || Str( :Number( "IMCOFALI" ), 6, 2 ) } }, ;
{ "Cof Enq", { || :String( "IMCOFENQ", 3 ) } }, ;
{ "Leis", { || :String( "IMLEIS", 70 ) } } }
BrowseADO( cnMySql, oTBrowse, "TRANSADES", { || :String( "ID", 6 ) } )
:CloseRecordset()
ENDWITH
RETURN NIL
Trouxe tudo de todas as tabelas.
