PC Toledo

Código: Selecionar todos

   cNomeCertificado := "CORDEIRO"
   oCapicomStore := Win_OleCreateObject( "CAPICOM.Store" )
   oCapicomStore:Open( _CAPICOM_CURRENT_USER_STORE, "My", _CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED )
   oColecao := oCapicomStore:Certificates()
   FOR nCont = 1 TO oColecao:Count()
      IF cNomeCertificado $ oColecao:Item( nCont ):SubjectName
         oCertificado := oColecao:Item( nCont )
         ? oCertificado:ValidFromDate()
         ? oCertificado:ValidToDate()
         EXIT
      ENDIF
   NEXT
   RETURN

Código: Selecionar todos

   cNomeCertificado := "CORDEIRO"
   oCapicomStore := Win_OleCreateObject( "CAPICOM.Store" )
   oCapicomStore:Open( _CAPICOM_CURRENT_USER_STORE, "My", _CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED )
   FOR EACH oElement IN oCapicomStore:Certificates()
      IF cNomeCertificado $ oElement:SubjectName
         ? oElement:ValidFromDate()
         ? oElement:ValidToDate()
         EXIT
      ENDIF
   NEXT
   RETURN

Código: Selecionar todos

cItemICMSST := XmlNode( cItem, "ICMSST" )
::aItemICMSST := hb_Hash()
FOR EACH oElement IN { "orig", "CST", "vBCSTRet", "vICMSSTRet", "vBCSTDest", "vICMSSTDest" }
     ::aItemICMSST[ oElement ] := XmlNode( cItemIcmsSt, oElement )
NEXT
cItemICMSSN101 := XmlNode( cItem, "ICMSSN101" )
::aItemICMSSN101 := hb_Hash()
FOR EACH oElement IN { "orig", "CSOSN", "pCredSN", "vCredICMSSN" }
     ::aItemICMSSN101[ oElement ] := XmlNOde( cItemIcmsSN101, oElement )
NEXT
cItemICMSSN102 := XmlNode( cItem, "ICMSSN102" )
::aItemICMSSN102 := hb_Hash()
FOR EACH oElement IN { "orig", "CSOSN" }
      ::aItemICMSSN102[ oElement ] := XmlNode( cItemIcmsSN102, oElement )
NEXT
cItemICMSSN201 := XmlNode( cItem, "ICMSSN201" )
::aItemICMSSN201 := hb_Hash()
FOR EACH oElement IN { "orig", "CSOSN", "modBCST", "pMVAST", "pRedBCST", "vBCST", "pICMSST", "vICMSST", "pCredSN", "vCredICMSSN" }
      ::aItemICMSSN201[ oElement ] := XmlNode( cItemIcmsSN201, oElement )
NEXT
cItemICMSSN202 := XmlNode( cItem, "ICMSSN202" )
::aItemICMSSN202 := hb_Hash()
FOR EACH oElement IN { "orig", "CSOSN", "modBCST", "pMVAST", "pRedBCST", "vBCST", "pICMSST", "vICMSST" }
      ::aItemIcmsSN202[ oElement ] := XmlNode( cItemIcmsSN202, oElement )
NEXT
cItemICMSSN500 := XmlNode( cItem, "ICMSSN500" )
::aItemICMSSN500 := hb_Hash()
FOR EACH oElement IN { "orig", "CSOSN", "vBCSTRet", "vICMSSTRet" }
      ::aItemICMSSN500[ oElement ] := XmlNode( cItemIcmsSN500, oElement )
NEXT

Código: Selecionar todos

   ::aItemICMSST    := XmlToHash( XmlNode( cItem, "ICMSST" ), { "orig", "CST", "vBCSTRet", "vICMSSTRet", "vBCSTDest", "vICMSSTDest" } )
   ::aItemICMSSN101 := XmlToHash( XmlNode( cItem, "ICMSSN101" ), { "orig", "CSOSN", "pCredSN", "vCredICMSSN" } )
   ::aItemICMSSN102 := XmlToHash( XmlNode( cItem, "ICMSSN102" ), { "orig", "CSOSN" } )
   ::aItemICMSSN201 := XmlToHash( XmlNode( cItem, "ICMSSN201" ), { "orig", "CSOSN", "modBCST", "pMVAST", "pRedBCST", "vBCST", "pICMSST", "vICMSST", "pCredSN", "vCredICMSSN" } )
   ::aItemICMSSN202 := XmlToHash( XmlNode( cItem, "ICMSSN202" ), { "orig", "CSOSN", "modBCST", "pMVAST", "pRedBCST", "vBCST", "pICMSST", "vICMSST" } )
   ::aItemICMSSN500 := XmlToHash( XmlNode( cItem, "ICMSSN500" ), { "orig", "CSOSN", "vBCSTRet", "vICMSSTRet" } )

STATIC FUNCTION XmlToHash( cXml, aTagList )

   LOCAL oElement, oVar := hb_Hash()

   FOR EACH oElement IN aTagList
      oVar[ oElement ] := XmlNode( cXml, oElement )
   NEXT

   RETURN oVar

Código: Selecionar todos

	   do while cc_codped == c_codped 
	
	            vc_codprod := cc_codprod   
	            vc_descr   := cc_descr     
	            vn_quant   := cn_quant     
	            vn_preco   := cn_preco     
	            vn_totitem := cn_totitem   
	            vn_totcus  := cn_totcus    
	            vc_marca   := cc_marca     
	            vc_und     := cc_und       
	            vc_decimal := cc_unddec    
	            vc_codfabr := cc_codfabr   
	            vc_local   := cc_local     
	            vn_margem  := cn_margem    
	            vn_cusmed  := cn_cusmed    
	            vn_descite := cn_descite   
	            vc_codven  := cc_codven    
	            vc_codcli  := cc_codcli    
	            vc_nomeven := cc_nomeven 
	            c_tipoven  := cc_tipoven  
	
	    select TMPCP
	    ADIC_REG()
	    replace cc_codprod  with vc_codprod,;
	            cc_descr    with vc_descr,;
	            cn_quant    with vn_quant,;
	            cn_preco    with vn_preco,;
	            cn_totitem  with vn_totitem,;
	            cn_totcus   with vn_totcus,;
	            cc_marca    with vc_marca,;
	            cc_und      with vc_und,;  
	            cc_unddec   with vc_decimal,;
	            cc_codfabr  with vc_codfabr,;
	            cc_local    with vc_local,;
	            cn_margem   with vn_margem,;
	            cn_cusmed   with vn_cusmed,;
	            cn_descite  with vn_descite,;
	            cc_codven   with vc_codven,;
	            cc_codcli   with vc_codcli,;
	            cc_nomeven  with vc_nomeven,;
	            cc_usuario  with PSW->usuario,;
	            cd_datalan  with vd_datalan,;
	            cc_time     with vc_time,;
	            cc_tipoven  with c_tipoven
	            DBCOMMIT()
	            unlock
	
	       select PDP
	       skip
	
	   enddo

Código: Selecionar todos

	 PDP->(ordsetfocus("PDPCX_01"),DBseek(c_codped))

	     FOR i = 1 TO FCOUNT()

  		 cFieldName  := FIELD(i)
 	         &cFieldName := PDP->&cFieldName
	      
            if cc_codped == c_codped 
        
  	            ADIC_REG()
	            REPLACE &cFieldName WITH TMP->&cFieldName  // Copia o valor da coluna da tabela original para a nova tabela
	            DBCOMMIT()
	            DBUNLOCK()
	         
	    endif   
				
		
		  NEXT

Código: Selecionar todos

// leitura
aList := {}
FOR nCont = 1 TO FCount()
   AAdd( aList, FieldGet( nCont ) )
NEXT
// gravacao 
APPEND BLANK
FOR nCont = 1 TO FCount()
   FieldPut( nCont, aList[ nCont ] )
NEXT