PC Toledo

Código: Selecionar todos

<cobr>
<fat>
<nFat>1012984</nFat>
<vOrig>480.00</vOrig>
<vLiq>480.00</vLiq>
</fat>
<dup>
<nDup>001</nDup>
<dVenc>2025-04-13</dVenc>
<vDup>480.00</vDup>
</dup>
</cobr>
<pag>
<detPag>
<indPag>0</indPag>
<tPag>14</tPag>
<vPag>480.00</vPag>
</detPag>
</pag>

Código: Selecionar todos

METHOD QuadroDuplicatas() CLASS hbNFeDaNFe

   LOCAL nICob, nItensCob, nLinhaFinalCob, nTamanhoCob, aList, cTPag, nPos
   LOCAL nTamForm, aDups, nColuna, cDup, cNumero, cVencimento, cValor, nCont

   IF ::nFolha != 1
      RETURN NIL
   ENDIF
   ::DrawTexto( 5, ::nLinhaPdf, 589, NIL, "FATURA/DUPLICATAS", HPDF_TALIGN_LEFT, ::oPDFFontBold, 5 )
   ::nLinhaPdf -= 6
   nICob := Len( MultipleNodeToArray( ::cCobranca, "dup" ) )
   DO CASE
   CASE nICob > 0
      nItensCob      := 1 + Int( ( nIcob - 1 ) / 3 )
      nLinhaFinalCob := ::nLinhaPdf - ( nItensCob * 8 ) - 2
      nTamanhoCob    := ( nItensCob * 8 ) + 2
      nTamForm := 585
      FOR nCont = 0 TO 2
         ::DrawBox( 5 + ( ( nTamForm / 3 ) * nCont ), nLinhaFinalCob, ( nTamForm / 3 ), nTamanhoCob, ::nLarguraBox )
      NEXT
      nTamForm := 585
      aDups    := MultipleNodeToArray( ::cCobranca, "dup" )
      nColuna  := 1
      FOR EACH cDup IN aDups
         cNumero := XmlNode( cDup, "nDup" )
         IF Empty( cNumero )
            EXIT
         ENDIF
         cVencimento := XmlNode( cDup, "dVenc" )
         cVencimento := Substr( cVencimento, 9, 2 ) + "/" + Substr( cVencimento, 6, 2 ) + "/" + Substr( cVencimento, 1, 4 )
         cValor      := Alltrim( FormatNumber( Val( XmlNode( cDup, "vDup" ) ), 13, 2 ) )
         IF nColuna > 3
            ::nLinhaPdf -= 8
            nColuna := 1
         ENDIF
         ::DrawTexto( 6 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1,  80 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cNumero, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 82 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 128 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cVencimento, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 130 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cValor, HPDF_TALIGN_RIGHT, ::oPDFFontNormal, 8 )
         nColuna++
      NEXT
      ::nLinhaPdf -= 12

Código: Selecionar todos

         ::DrawTexto( 6 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1,  80 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cNumero, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 82 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 138 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cVencimento, HPDF_TALIGN_LEFT, ::oPDFFontNormal, 8 )
         ::DrawTexto( 140 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), ::nLinhaPdf - 1, 195 + ( ( ( nTamForm ) / 3 ) * ( nColuna - 1 ) ), NIL, cValor, HPDF_TALIGN_RIGHT, ::oPDFFontNormal, 8 )